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Editorial 


¡CUMPLEAÑOS FELIZ! 

Feliz cumpleaños, es nuestro primer pensamiento en este número 
aniversario de MUNDOATARI. Con mucho agrado podemos decirle 
a ustedes, fieles amigos lectores, que los objetivos formulados al 
iniciar esta publicación han sido cumplidos ampliamente. Queremos 
expresar también nuestro deseo de permanecer unidos y estrechar 
filas, para que el crecimiento y el soporte necesarios sobrepasen las 
aspiraciones que ustedes tengan. 

Respecto a nuestra realidad nacional en lo que se refiere al uso 
y aprovechamiento del computador ATARI, podemos decir que la 
evaluación en general es pobre. Las causas no serán motivo de análisis 
de la presente editorial. Pero de no mediar acciones rápidas y efectivas, 
las posibilidades futuras serán cada día más difíciles. 

MUNDOATARI es y debe ser la solución para esta situación 
problemática a nivel nacional. Uno de los requerimientos para cumplir 
esta meta es precisamente el interés de cada uno de ustedes, amigos 
usuarios, para darle a nuestro querido ATARI un uso más diversificado,, 
colaborar en las distintas campañas de MUNDOATARI y apoyar a la 
revista en el incremento de lectores y suscriptores , lo que permitirá 
el financiamiento adecuado en todos sus proyectos. 

El slogan que definirá la campaña en nuestro segundo año de 
vida con ustedes será el siguiente: 

AYUDANOS A AYUDARTE 

* c 

Para cumplir la tarea mencionada las columnas, artículos y temas 
de futuras ediciones estarán destinados a entregar orientación, información 
y software a bajo costo, que permitan elevar el uso y proyecciones del 
capital invertido, que actualmente no son debidamente aprovechados. 

i- 

Su editor 
Iván Gjurovic M. 


Esta revista no mantiene relación 
de dependencia de ningún tipo 
con respecto a ¡os fabricantes 
de microcomputadores ATARI 
n* * sus representantes. 

El contenido de la publicidad es 
responsabilidad de los avisadores. 

Prohibida ta reproducción total 
o parcial de esta revista sin Ea 
autorización escrita de los editores. 
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Continuamos la columna de la técnica de 
Player con 3 programas que demuestran las po- 
tencialidades de ella. 


Para la explicación entregamos cada uno de 
los programas debidamente documentados, usando 
las instrucciones REM. 

Digite cuidadosamente y ejecute el primer 
listado: 


6 REM MOVIMIENTO HORIZONTAL DE PLAYER 
10 GRAPHICS 3+16: REM MODO 1? 

19 REM Dibuja rectángulo 

20 FOR X=16 TO 24 :F0R V-0 T0 23: COLOR 
JíPLOT X,Y:NEXT YiNEXT X 

25 REM Reserva Menor ia por localiza- 
ción 741,742 MEMTOP 
30 MEMT0P=PEEK £7411 +256*PEEK (7421 ~1 

39 REM reserva 1824 bytes resolución 
doble 

40 PHBASE=INT C CMEKTOP-1824) ^18241 *1024 
58 AD-JT0P-PMBA5E+384 ; REM Inicio de la 

Menor ia Util de P/H Menor i a 
60 POKE 742,INT£ADJT0P/256) :P0KE 741, A 
DJT0P-256*PEEK£742) :REH nueve el pun- 
tero para reservar la nenoria 
65 REM 

78 POKE 54279, PM&A5E/25& i REM Inferna 
al AHTIC de ubicación inicial de 
cenoria para P/M 

88 POKE 53277, 2 ;REM Activa SOlO PLAYER 
90 POKE 559,34+8:REH Resolución sinple 
188 P0-PMBASE+512 : REM Local izac ion Ini 
Cial de PLAYER 0 

109 REM Inicial iza nenoria a usar 

110 FOR A=P0 TO P0+128:P0KE A,8:NEKT A 
119 REM Refine la Posición Vertical 

dentro de nenoria total del P/M 
128 FOR A-P0+60 TO P8+67:READ B : POKE A 
, B : NEXT A 

130 POKE 53256, 3; REM T analto cuádruple 



En pantalla observará como ¡lustra la foto: 


Repase el tema de números binarios en MUN- 
DOATAR! No. 1, página 28. 

La figura en movimiento corresponde a un 
Player. La línea 170 contiene los valores numéri- 
cos de ella. Compruebe con el primer esquema y 
luego determine los valores de la segunda figura. 


para PLAYER 9 

140 POKE 623,1: REM Prioridad de PLAYER 
sobre PLAYFIELD 

158 POKE 704,108: REM Color para PLAYER 
8 

168 POKE 53248, PEEK £20) ¡GOTO 168:REK u 
ti liza Loe. 20 Tiner (CftP.l4> para no 
dificar la posición horiz. 

178 DATA 68,126,129,153,255,36,66,129 



MAYO 1988 


5 



* 


TECNICAS: continuación 



Modifique la línea para estos valores y eje- 
cute el programa. 

Bravo, usted ha construido su primer Player. 
Continúe con la técnica y su progreso se hará 

más evidente. 


Digite con cuidado y ejecute el segundo lis- 


tado: 


i« REH PLAYERMI.T08 
20 REM MUEVE P/fl mediante ML RUTINA 
que ejecuta durante el VERTICAL 
BLANK TEMA 8 

100 P0KE 752,1:? CHR${125I :5ETCOL0R 2, 
e,8:REM Inicial iza 

118 PC0L0=216:PC0Li=56¡REM COLOR PLAYE 
R 

120 G05UB 1000: REM Inicial iza ml Ruti- 
na para VERTICAL BLANK 
130 POKE PLL,8:P0KE PLL+1,8:REM tama»o 
de PLAYER 

148 POKE PLX, 188: POKE PLY,i02íREM ROSi 
cíon inicial de PLAYER 
150 POKE PLX+1, 108 ¡POKE PLY+1,72 
160 REM LET movimiento Random 
170 POKE PLX, RNDC8) *159+48: POKE PLY,RN 
D (01*191+32 

180 POKE PLX+i, RND (01*159+48 ¡POKE PLY+ 

1, RND (81*191+32 

198 A=1 A 1 A 1 A 1 ¡ GOTO 170 

200 END 

lose REM ML Rutina para vblank ' 

1010 FOR 1=1536 TO 1706 ¡READ A ¡POKE I, 
A:NEXT I 

1020 FOR 1=1774 TO 1787:P0KE I,0:NEXT 
I:REM ML en PAGINA 6 medio superior 
1030 PM=PEEK (1661 -16 ¡ PMBASE=256*PM¡ REM 
reserva 4K de memoria 
1040 FOR I=PMBA5E+1023 TO PMBA5E+2047: 
POKE I, 0¡NEXT I:REM Inicializa con O 
la P/M memoria 

1050 FOR I=PMBA5E+1025 TO PM8ASE+1032; 
REA» A: POKE I,A:NEXT I ¡REM localiza da 
ta para PLAYERO 

1060 FOR I=PMBA5E+1281 TO PMBA5E+1288! 
READ A ¡POKE I,A:NEXT I; REM localiza da 
ta para PLAYER 1 

1070 POKE 704, PCOL0! POKE 7B5,PC0L1:P0K 
E 706, PC0L2! POKE 707,PC0L3;REM asigna 
color a registros de PLAYER 
1880 PLX=53248 ¡ PLY=1780 : PLL=1784 
1890 POKE 559, 62 ¡POKE 623,1 ¡POKE 1788, 
PH+4:P0KE 53277, 3 ¡POKE 54279, PM: REM va 


lores para P/M 

1100 x=USR (1696 J ¡REM actúa la ML en el 
VBLANK 
1148 RETURN 

2800 REM Códigos VBLANK INTERRUPT 
2010 DATA 162,3,189,244,6,240,89,56,22 
1,240,6,246,83,141,254,6,106,141 
2020 DATA 255,6,142,253,6,24,169,0,109 
,253,6,24,189,252,6,133,204,133 
203B DATA 206,189,240,6,133,283,173,25 
4,6,133,205,189,248,6,170,232,46,255 
2840 DATA 6,144,16,168,177,203,145,205 
,169,8,145,203,136,202,208,244,76,87 
2050 DATA 6,160,0,177,283,145,285,169, 
0,145,283,200,202,208,244,174,253,6 
2068 DATA 173,254,6,157,240,6,189,236, 

5.240.48.133.203.24.138.141.253.6 
2070 DATA 109,235,6,133,204,24,173,253 
, 6, 189,252,6,133,286,189,240,6, 133 
2888 DATA 205,189,248,6,170,160,0,177, 

293.145.205.208.202.208.248.174.253.6 
2998 DATA 169,8,157,236,6,202,48,3,76, 

2,6,76,98,228,0,0,104,169 

2100 DATA 7,162,6,160,0,32,92,228,96 

3800 REH DATA PLAYER5 

3910 DATA 6,6,8,126,195,195,195,126 
3029 DATA 126,195,195,126,24,126,126,2 

4 


Observe los cambios de posición y analice 
el comentario de cada una de estas lineas. 


Ahora el listado 
lidades de ios Players: 


final muestra las potencia 1 


4 REM PLAYERMI.T09 

5 REM DEMO PLAYER MI5SILE 

19 DIM AS (151,0$ til ¡POKE 623,8 

20 GOTO 48 

30 FOR I=PMBA5E+3S4 TO PMBASE+1824¡P0K 
E I,0:NEXT I: RETURN ¡REM iftiCializa 
el AREA para doble resolución 
40 X=28:REM Posición inicial de PLAYER 

0 

58 SOUND 3 , 13 , 8, 2 ¡REM Sonido Espacial 
55 GRAPHICS 17 :? »&;■' potencialidades 

,68 ? tt6; H PLAY ER ” 

78 ? »6; M 

90 fl=l A l A l A l A l A i A l A l ¡ REM PAUSA 

108 2=90 ¡REM POS, inicial de PLAYER 1 

110 POKE 784, 149 ¡POKE 705, 249 ¡REM COLO 

RES de PLAYERS 0 & I 

119 REM reserva 40 paginas de memoria 
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TECNICAS: continuación 


128 P106=PEEKÍI863 :P=P106-48;PQKE 5427 
9,P¡PHBA5E=25&*P:G05UB 73@:PüK£ 719,8 

129 REM siKple resolución, activa Pla- 
yer y Missile,eliHina cursor, Posic 

iones iniciales e para PLAYER 9 y l 

139 POKE 559,46 :PCKE 53277,3:P0KE 752, 
líPOKE 53248,9 ¡POKE 53249,0 

140 G05UB 38 
150 RESTORE 129 

160 POR I=PMBA5E+640+K TO PMBA5E+644+K 

¡READ BíPOKE 1,5 ¡HEKT I 

170 DATA 153,183,255,189,153 

ISO REfí DATA para NAVE espacial 

190 SE5T0RE 178 

208 POS I=PMBA5E*512+Z TO PMBASE+516+Z 

¡READ A ¡POKE I, A¡HEXT I 

210 POKE 53256, 3; POKE 53260,18 

220 POKE 53257,3 

230 DATA 153,189,255,189,153 

246 ? "ves el HALLEY por ahí 

250 POR I-I TO 390B¡HEKT I 

260 ? "MQ este es un playfield « 

270 FOR 1=1 TO 3000 ¡NEXT I 

280 ? :? " rodeándolo, . .... 

" es el borde "¡FOR 1=1 TO 
20 ¡POKE 712,RNDÍ0>*255 
290 POR J=I TO Í0O:HEHT J ¡ HEKT I 
380 2 :? :? "ahorita figuras PLAYER5" 
310 POKE 53248,190 
320 POKE 33249,130 
336 A$="<==== PLAYER r':X=15;Y=iB 
340 G05ÜB 370 

35S A$="{==== PLAYER 2"¡X=15¡ Y=150 

366 6Q3UB 870 

37B FOR 1=1 TO 30¡MEXT I 

330 REM ******* MOVIMIENTO***** 

393 ? ;? 11 ,y se Mueven,...,,.," 

400 SOUHD 2, 0,8, 2 

410 FOR VBL=1 TO 15 STEP 6.1 ¡SOUHD 3,2 

5.4, VOL ¡SOUHD 1,13,4, MOL 
420 N-VBL*249/i5 

438 POKE 53249, K¡ POKE 53248, N; HEKT VOL 
440 FOR V0L=14 TO 0 STEP -0,1 ¡SOUHD 3, 

25. 4 , VOL ¡ SOUHD 1, 13, 4, VOL ¡ M=VÜL*248/ , 14 

¡POKE 53248, M; POKE 53249, M.'KEHT VOL 
45B REM CHANCE SIZE ***** 

460 ? :? " Y Modifican su tanaBo. 

! «f 
■ * 

470 POKE 53248 ,74 ¡POKE 53249,74 
480 POKE 53256,1 ¡POKE 53257,1 ¡FOR 1=1 
TO 1900 ¡HEKT I 

493 POKE 53256, 3 ¡POKE 53257, 3 ¡FOR 1=1 
TO 100O ¡HEKT I 


SOS ? ;? " igual que VIDEO disparan" 
510 POKE 53256,0 ¡POKE 53257,0 ¡ GOSUB 64 
0 

516 FOR 1=1 TO 8 ¡POKE 53247+1, O ¡HEKT I 
520 GOTO 18000 

628 IF PEEK Í532793 =3 THEH POKE 764,12: 
RÜH "DíEXS^" 

638 GOTO 613 

640 REH ****** Hueve MI55ILE ****** 

650 POKE 53252, 80 ¡POKE 53253,80 

668 P=0¡F9R SHOT=l TO 6 ¡FOR PO=20 TO 1 

23 

678 5ÜÍ3NB 8,P0, 3, 8; SOÍiffD 1,P0,19, 8 ¡500 

HD 2, P8, 12, 3 ¡SOUHD 3,P0,4,8 

608 POKE PMBA5E+383+PG, OlPOKE PMBASE+3 

84+P9,4 

590 HEKT P0 ¡ HEKT SHOT 

700 FOR OFF=0 TO 3¡ SOUHD 0FF, 8,0, 0: HEK 
T 0FF 

718 RETURH 

72B REH ****** Dibujo F0HD8 ****** 

739 GRAPHICS 3:CKT=0¡POKE 559,0 
748 COLOR 1¡X=RKD (03*319 :Y=RND (03*159: 
CNT=CNT+1 ¡PLOT K,Y¡IF CHT>150 THEN RET 
URH 

750 SOTO 743 

760 REH ****** PORTABA ****** 

778 GRAPHICS 17 

780 ? » 6 ;" PROGRAM » 

790 ? ÍÍ6 ; " B 1 OF " 

808 ? 96:? 96;? 95 

sia ? 96 ; »g ms §Er 

328 ? 96 r 15833113 " 

838 ? 96;" graphics" 

848 FOR 1=1 TO 50 ¡FOR J=1 TO 5 ¡POKE 78 
8+J,RND (03*208 ¡HEKT J¡MEXT I 
850 RETURH 

860 REH ****** M0DE3 TEXT ****** 

370 II=PEEK (883 +PEEK (893*256 

380 I2=Ii*Y*49+X 

B53 FOR Z=i TO LEHÍA5) 

980 9í=A$(ZyZ3 ¡GOSüB 958 

910 I3=5?344+X*8 

928 FOR U=0 TO 7 

930 POKE 12+11*40, PEEK (I3+U) 

940 HEKT U: 12=12+1 ¡HEKT Z 
950 X=A5C(0$3¡IF X>127 THEN X=X-128 
968 IF K>31 AND X<96 THEH H=H-32¡ RETUR 
N 

970 IF K<32 THEH K=X+64 
980 RETURH 

990 REM ******* C0LLI5I0H * * * ****** 
18000 GRAPHICS 0 ¡ POKE 82,0 


MAYO 1988 


7 


TECNICAS: continuación 



i 5 rao P05ITI0N 3,8:? * ' ■ JiM diHlt M 


MODIFICAR UTILIZAR 


13028 EHD 


Dígite y ejecute el listado. Observará una na- 
rración posible de realizar con esta técnica. 

El próximo mes finalizaremos el tema de 
Player Missiles. Hasta entonces. 


TABLA t 


REGISTROS DE PLAYER/MISSILES 


| Localización (es) 

Función 

Comentarios 

POKE 

PEEK | 

53248-53251 

Registro de posición horizontal 
para Players 0 a 3. 

POKE valores entre 0 y 255. Sólo 
son visibles en pantalla los valores 
entre 48 y 208. 

• 


53252-53255 

Registro de posición horizontal 
para Missiles 0 a 3 

Idem 

• 

* 1 

53256-53259 

Reqistro de tamaño para Players 

0 a 3. 

Ver nota 1 

• 


53260 

Registros de tamaño para Missiles 

Ver nota 2. 1 

• 


53248-53251 

Registro de colisión entre Missiles 
y campos gráficos. Missiles 0-3 

Ver nota 3. 


• 

53252-53255 

Registro de colisión entre Players 
y campos gráficos, Players 0-3. 

Ver nota 4. 


* 

] 53256-53259 

Registro de colisión entre Missiles 
y Players. Missiles 0 a 3. 

Ver nota 5, 

t 

m 

53260-53263 

Registros de colisión entre Players. 
Players 0 a 3. 

Ver nota 6. 


• 



1 53278 

Usado para limpiar todos los 
registros de colisión. 

POKE cualquier número salvo 
cero para limpiar registros, 

Ver nota 7. 

• 


53261-53264 

Registro de Data gráficos para 
Players 0-3. 

Usado por el computador para 
editar datos P/M. No usado 
normalmente por programadores. 

• 


53265 

Registro de Data gráficos para 
todos los Missiles. 

Idem 

• 


|704-707 

Registro de color para Players 

0-3 y Missiles asociados. 

Missiles tienen .el mismo color, 
de Players. POKE un valor de 
color en registro. Ver nota 8. 

• 

• 

623 

Registro de prioridad 

Ver nota 9. 

• 

* 

54279 

PMBASE. Número de página 
inicial det área de memoria de 
Player /Missiles. 


• 

• 

559 

Control DMA. Especifica tipo de 
resolución P/M y si la pantalla 
está conectada o no, 

Ver nota 10. 

• 

• 

53277 

Control de gráficos. Habilita el 
sistema Player/Missiles. 

POKE 0 para desactivar sistema 
de P/M. 

POKE 3 habilita P/M. 

• 

< i 


1. Registro para tamaño de Player 


Inicial =0. Registro afecta sólo al ancho y no al alto. 


POKE valor Tamaño^ 

0/2 ancho normal 

1 doble ancho 

3 cuádruple ancho 


2. Registro para tamaño de Missiles 

Cada ancho de Missil puede ser controlado indepen- 
dientemente con este registro. 
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TECNICAS: continuación 


Valores para POKEar para tamaño 

Missii Norma 1 Ooble Cuádruple 

0 

0 

1 

3 

1 

0 

4 

12 

2 

0 

16 

48 

3 

0 

64 

192 


3. Registro para colisión Misstl/Campo 

Un objeto en el campo es cualquier cosa dibujada en 
pantalla con los comandos PLOT o DRAWTO. Los carac- 
teres impresos en pantalla son considerados como tales. 

El número de campo corresponde ai comando de 
COLOR usado al plotear. Si ocurre una colisión en pan- 
talla entre un missii y un objeto de campo, la lectura con 
PEEK informará cual objeto fue detectado. 


Valor en 
registro 

Campo 

tocado 

Comando COLOR 
correspondiente a campo 

1 

0 

1 

2 

1 

2 

4 

2 

3 

8 

3 

Ninguno. Usado para editar 
en Graphics 1 y 2 


4, Registro para colisión Player / Campo 

Estos registros son afectados cuando un player en- 
cuentra en su camino un objeto de campo. La tabla es 
idéntica a la anterior. 

5. Registro para colisión Player/ Missii 

Estos registros son afectados cuando un player choca 
con un missii. 


Valor en Player 

regjstro tocado 


■+ 

1 

0 

2 

1 

4 

2 

8 

3 


6. Registro para colisión Player/ Campo 

Estos registros son afectados por la colisión entre 
Piayers. La tabla es idéntica a la de nota 5. 

7. Registro para borrar colisión 

POKE cualquier valor entre 0 y 255 para borrar to- 
dos los registros de colisión. Es importante que su progra- 
ma borre frecuentemente estos registros. En caso contra- 
rio las colisiones múltiples producen valores anticipados 
que confunden su programa. Lo mejor es limpiar estos 
registros antes de cada movimiento de player o missii. 

8. Registro para color de Player/ Missii 

Ponga el color de cada player por medio de POKE, 
con el resultado de la siguiente fórmula: 

COLOR = LUMINOSIDAD +16 * TINTE 

9. Registro de prioridad 

Este registro selecciona los objetos que se desplie- 
gan en primer plano en relación a los otros. Los colores 
de fondo tienen siempre menor prioridad. 


POKE Orden de prioridad 

1 Piayers 0, 1 , 2, 3, Campo 0, 1 , 2, 3 

2 Piayers 0, 1 , Campo 0 r 1,2, 3, Piayers 2, 3 
4 Campo 0, 1 , 2, 3, Piayers 0, 1 , 2, 3 

8 Campo 0, 1 , Piayers 0, 1 , 2, 3, Campo 2, 3 


Si usted incrementa el valor de los contenidos de 
la prioridad en 32, puede combinar los Piayers (0 con 1, 
2 con 3) para formar piayers multicolores. 

10. Registro de control de Acceso Directo a Memoria 
{DMA) 

Este registro controla el despliegue de pantalla y 
Player/ Missii como sigue: 


Opción 

Añadir a 
valor final 
para POKE 

Comentarios 

Campo angosto 

1 

Elija 

Campo estándar 

2 

sólo 

Campo ancho 

3 

uno 

Activa Missíl -DMA 

4 


Activa Player-DMA 

8 


Player de doble 
resolución 

0 

Valor inicial 

Player de simple 
resolución 

16 


Regular-Graphics DMA 

32 


El valor inicial de este registro es 

34 (modo gráfico 


regular, campo estándar, P/M no habilitado). 

POKE 559, 0 desconecta la pantalla y aumenta el 
tiempo de procesamiento en un 30°/o {por ejempo para 
una inicialización más rápida). 


TABLA 2 UBICANDO DATA DE P/M 
BAJO LA LISTA DE DESPLIEGUE 


Poner PMBASE en valor indicado 
(en páginas) bajo RAMTOP 

Resolución Resolución 


Modo Gráfico 

doble 

simple 

0 

8 

16 

1 

8 

16 

2 

8 

s 16 

3 

8 

16 

4 

8 

16 

5 

12 

16 

6 

16 

24 

7 

24 

32 

8-11 

36 

40 


PMBASE es la localización en memoria del co- 
mienzo de Data de Player/Missü. Ponga el número de 
página (dirección/ 256) de PMBASE en localización 
54279. RAMTOP, en localización 106, mantiene el 
número de páginas de RAM en la máquina. 

Si tomamos como ejemplo el Modo 5, codifica- 
remos como sigue: 

PM = PEEK (106) — 16: POKE 54279, PM 
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CASETE 


Controlando 


casetera 




El programa de hoy aplica conceptos vistos hasta 
ahora en nuestra columna y sirve para todos los 
computadores A TAR!. 

Este mes veremos cómo traspasar una pantalla 
en Modo 0 a casete y cómo recuperarla posterior- 
mente. 

Todos sabemos que el diseño de una pantalla 
requiere de muchos cálculos, correcciones y una 
buena cantidad de líneas de programa. 

La facilidad que nos ofrece el programa de 
hoy es poder trabajar directamente en la pantalla, 
tal como la necesitamos. Usted puede usar letras 
mayúsculas, minúsculas, tanto en positivo como 
en inverso, símbolos, caracteres gráficos, núme- 
ros, etc. Al presionar la tecla ESC se graba auto- 
máticamente la pantalla en casete. También se 
puede cargar esa pantalla desde el casete a la 
memoria. 

En consecuencia usted puede obviar todas 
las líneas referentes a esa pantalla y dedicar su 
esfuerzo al programa principa!. ¿Que le parece A 

Ahora manos al teclado. 

Digtte el listado siguiente y grábelo con la 
instrucción LIST"C:". La numeración parte de! 
30000 , lo que permite incorporarla en cualquier 
momento a sus programas con la instrucción 
ENTEFTC:" (y sin borrarlos!). 


IMEHU PANTALLA EN CASETE 


U 


li t « 9 
* ► 


ii 


38806 REM 2 
38818 GRAPHICS 0:L=5+PEE8(S68)+PEEX(56 
1)*256:P=PEE8(89) :P0KE 82,18 
38626 GLOSE ttüOPEM #1, 4,0,"K :":P0KE 1 
6,64:P08E 53774 , 64 :P08E 718,34 
36838 ? ;? ;? 

? "0 ; ? :? *«@ 
EEGEGHW:? ;? "Digite ti opcion= , 
38835 GET «II, K 

38848 IF 8 <49 0R K>58 THE* 38035 
38858 0* 8-48 GOTO 38288,38588 
30288 POXE 82,2:PQ8E 718,148:? CHR$(12 
5) 

38225 ? " -para EMPEZAR digite cualqui 
er tecla":? :? " -Para GRABAR pantalla 
*•:? " digite ESS":: GET 81,8, 

38228 ? CHRS(IZS) :PQ8E 82,0:POKE 89, P“ 
4 : P08E L,P~4 

38230 P0SITI0N 0,8:? "+*"J 

38248 GET ttl,8tIF 8=27 THE* 30308 

38245 IF PEE8(84)=23 ANO PEE8Í85)=39 T 

HE* P08E 85, 28 ¡GOTO 38248 

30258 ? CHR$(8);:G0T0 38248 

30388 REM LirldhlM ft HMIftli 

38328 P08E 89,P:P08E L,P:P08E 82,2:? C 

HRS (125) 

30330 ? ’ OJilMaa ii HHMgflllfflfflH a 11 : ? : 
? 'fl Ponga cinta en posición":? :? 
Presione RECORO+PLAY . . . y RETIIRN" 
30348 GET «1,8:? :? :? " Y otra vez RE 
TUR*., 

30358 0PEN 85, 8,0, "¿I" 

39360 E=PEE8 (88) * (PEE8 (89) ~4) *256 

38376 F0R X=0 T0 959:F=PEER(E+X) :PUT ü 

5,F:HEXT X 

36380 GLOSE SfSíENO 

30508 REM LliM&MgliWfiliCE 

38505 P88E 716,22:P08E 89,P:P0KE L,P:P 

D8E 82,2 

30526 ? CHRS (125) 

30535 ? , ^JSiiaM8Baaa«aa:iÉfmM M 
38540 ? :? 'fl Ponga cinta en posición" 
:? Presione PLAY ... y RETURN"; : 
GET 111,8 

30556 ? :? :? “ Y otra vez RETURN" 
36560 0PEN M5,4,0,"C;" 

36570 E=PEE8 (88) ?PEE8 (89) *256 : F0R X=8 
TO 959: GET U5,C:P08E E+X,C:NEXT X 
30590 GLOSE 115 


Ejecute el programa y siga las instrucciones. 
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La primera pantalla presenta un menú de opcio- 
nes: 

1 , Diseñar pantalla y grabar en casete. 

2. Recuperar pantalla desde el casete. 

Presione el número 1 y luego cualquier tecla. 
En ese momento usted empieza a diseñar su pan- 
talla tal como lo hace normalmente en directo. 
Puede usar las teclas CONTROL, SHIFT, DELETE 
y RETURN La tecla BREAK está desactivada, 
para no interrumpir el programa. 

Cuando decida que la pantalla está lista pre- 
sione ESC, con lo que se inicia la grabación. Eso 
es todo. 

Cuando necesite esa pantalla ejecute el pro- 
grama y elija en el menú la opción 2. Siga las ins- 
trucciones y de pronto empezará a aparecer su 
pantalla en e! televisor. 

TECNICA DE TRASPASO 

La técnica consiste en manejar 2 pantallas en 
la memoria: la normal con el valor de la localiza- 
ción 89 (P) y una paralela situada 4 páginas más 
abajo (P —4). De esta forma manejamos el dise- 
ño y lectura de mensajes, que de otra forma bo- 
rrarían todo el trabajo realizado. 

El esquema siguiente ilustra lo expuesto: 


Locsliz, 89 

156 

(P) 

Pantalla Modo O 
(para mensajes) 


152 

(P-4) 


Pantalla paralela 
(para diseñar) 


-7 


0 800 


I 


I 


Comentarios del listado: 

30000 Inictalización. Variable L: localización de 
Lista de Despliegue para ver la pantalla. Va- 
riable P: valor de localización 89 (inicio de 
pantalla). 

30020 Abre canal 1 para ingreso por teclado. Se 
inhibe la tecla BREAK para evitar detención 
de programa por su causa. 

30030 Menú de opciones de diseño de pantalla 
y grabación ( 1 } o carga desde la casetera a 
la memoria (2). El ingreso por teclado per- 
mite restringir las teclas, 

INICIO DISEÑO/GRAB ACION 

30200 Se inicia proceso de diseño de pantalla al 
presionar cualquier tecla. Para grabar la pan- 
talla ya lista sólo debe digitar la tecla ESC. 

30228 El diseño se efectúa 4 páginas más abajo 
de la pantalla normal (P -4). 

30230 Las flechas se obtienen digitando 

ESC CTRL* y ESC CTRL +. 

30240 El programa observa si se ha presionado 
ESC, en cuyo caso comienza a grabar. 

30245 Esta línea sólo controla que no se ingrese 
más caracteres que ios 960 de capacidad de! 
Modo 0, ya que uno de más haría subir toda 
la pantalla en una línea. 

30250 Edita en pantalla el carácter digitado y 
espera el siguiente. 

30330 Edita instrucciones de grabación. 

30350 Abre canal 5 para grabar. 

30360 Variable E: localización inicial de panta- 
lla paralela. 

30370 Ciclo para grabar 960 caracteres. Variable 
F: valor de localización de pantalla para- 
lela (-4). 

CARGA 

30500 Inicio de proceso de carga de casetera a 
memoria. 

30505 Retorna a pantalla de modo gráfico 0. 

30535 I nstrucciones para cargar pantalla. 

30560 Abre canal 5 para cargar. 

30570 Variable E: inicio de pantalla de modo 
gráfico 0. Ejecuta ciclo para traspaso de 960 
caracteres a pantalla. 

Practique un poco y analice el programa para 

comprender la técnica usada. 

Como problemas para el próximo número de- 
jaremos planteados los siguientes: 

— ¿Cómo puede utilizar el último carácter de la 
pantalla (abajo, derecha)? 

— ¿Cómo limpiar la pantalla paralela? Ei caso se 
produce cuando usted desea diseñar una se- 
gunda pan talla. 

— ¿Cómo evitar ia palabra READY cuando recu- 
pera una pantalla? 

Hasta ei próximo mes, amigos. • 
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1050 


La columna Dominando la 1050 se integra a 
filosofía de MUNDOATARI y entrega una colum 
na de aplicaciones para nuestros asiduos lectoras 


J !»■’ : .¿"tÉív'í \'s. 

s 




x: ' 


wr 


m 




, 


' 




m 


? 


«y 


ü 




A- 


... 






+*. 


.«4 






"•I 




B 


'Jíts 




S 




* 


0- 




:■ 




x- « 


■ ■áí 


í¿í¿i 


:■ 






ES* 


I 


¡i 




m 


- 


. 


'ÜF 


4 


:rr; 


í.í: : 


| Din FASTS KI» , A$ <761 , MONTHS <10 J , 0$ « 
) f F$<171,BLK$ <281 , Y$ <51 , CL$ 11 

451 ,NULL$<2801 ,MM$<151 , 5T$<311 

1 RESTORE 3000 : FOR 1=1 TO 3?ílEW ft¡F0 
ST$<I1=CHR$<A1:NEXT I 

2 tMSr'OnHXXniBEB" : ERR0R=40«0 

3 frlH H0tf$<391 ,8$<620O1,OP$ 12001 :F0R I 
=1 TO 39 i READ A í M0V$ III =CHR$ CAI : NEXT I 

5 £255=255 ! C 64 =84: 0256=256 ;CON50L=5327 
9 ! KEY=764 

6 B$=“ ,, :B$t62B»l="- ,, :6$<21=B$:0P$=BS: 
BLK$=B$:NULL$=B$ 

7 GRAPHICS ZíPOKE 559, Z: POKE 7iB,196:P 
OKE 712, 196: POKE 709,14 ¡POKE 752,1 

9 POSITION 2, 1‘POKE 82, 2; POKE 03, 39;? 


HIIMMMimMMMMMMMIIMIjMj 


12 ? 

flllin » 

13 ? "► 


CALENDARIO DE PLANIFICA 1 : ION 
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14 

15 

16 

17 

18 

19 

20 
21 


* 

■m 

4 

? 

9 

V 

■ 

7 

m 

i 


«> | A ENERO 
"1 | B FEBRERO 


G JULIO l" 
H AGOSTO I " 
I SEPTIEMBRE | <a 
J OCTUBRE I” 
X NOVIEMBRE I" 
L DICIEMBRE 

*• 


SELECCIONE EL ME 5 


H 


POKE 55 


"► 

"► I 

"► i 

”M 

L» 

; ?H 

9, 34: GLOSE MI 

22 OPEN ttl f 4,Z, ,, K¡":6ET lll,R!CL05E MI 

23 R=R-64íIF R<1 OR R>12 THEB 22 

24 RESTORE 9999+RiREA» MONTOS, NUM*.H=R 

36 DAV=YI POSITION 2,6í? IRtSs¥=198SiX=l 

1 

37 ? "► INGRESE EL A*0":? í? 


«USE 


OPTICtN 


A\0 CRECIENTE":? :? " 
AVO RECRECIENTE":? I? "PRES 
PARA EL A\0":? 


IEH9U985I 


J“;POKE 559, 34: FOR 


38 ? 

USE 

I0NE 

39 ? :? 

40 ? " 

41 ?r , | . . | 

R=1 TO 22 : NEKT R 

42 G=PEEK CCONSOL) :IF G=7 THEN 42 

43 IF G=3 THEN Y=Y*1 

44 IF 6=5 THEN Y=Y-1 

45 IF 6=6 THEN YEAR=Y¡GOTO 50 

46 IF Y <1985 THEN Y=1999 

47 IF Y) 1999 THEN Y=19B5 

48 POSITION X,M:? Y: FOR R=1 TO 32: 

T R:GOTO 42 

50 POSITION 2,6:? MHSl? 

51 ? "UD. INGRESO EL SGTE.fKSí":? 

52 ? MQNTHSj'VjYEAR:? :? 

53 ? "51 ESTA CORRECTO, ENTONCES" 

54 ? "PRESIONE LA TECLA START."!? 

55 ? "SI ESTA INCORRECTO, ENTONCES PRE 

5I0HE" 

56 ? "LA TECLA OPTION." 

57 A=PEEK (CONSOL) : IF A=7 THEN 57 

58 IF A-6 THEN G05 UB 900: GOTO 60 

59 CLOSE MlsCLOSE MZsCLOSE MI ¡GOTO 7 
68 ? "N" : POKE 559, Z: POKE 710,2B6:P0KE 
789,6: POKE 712,2B:P0KE B2,2:P0KE 83,39 
:POKE 752,1:6070 62 

61 ? "I i I * I * 1 

|«;RETHRN 

62 ?! í? “ 


65 ? "IDOM ILUN |MAR |MIE |JUE 1VIE ¡S 
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DtSKETTE 



í \ 


A8 |“ 

66 FOR T=1 TO 5:? " 
j || H M ;GOSUB 61 * G05BB 61:0 

EXT T 

76 ? w | 


i — y 


i 


i ii 


71 ? «I 

72 ? 1,1 


I 


l"lt "i 

iff 


i 


I" 


I 


71 MDPT- C4I-LEM (MONTH$> 1 72 

74 P05ITI00 H0PT,2!? HOOTH$ 

75 POSITIOO 1,2;'? YEAR;P05ITI0M 11,2:? 
YEAR 

76 G05U0 118 

77 POKE 559,14 

88 1F PEEK(COM50L1<>3 THEO 66 
98 GOTO 480 

98 ? ” | [ \ I I I 

215 XF PEEK (CONSOL! 06 THER 1215 
118 GOSUB 1880 

148 5P=1+5*C : 5=1 : FOR Y=6 TO 21 STEP 1 

158 5P=i+5OC:S=l¡F0R ¥-6 TO 21 5TEP 1 

168 FOR X=6 TO 17 STEP 5 

165 IF 5=1 THEO X=5P 

167 IF 5>9 THEO X=X-i 

178 P05XTION X,Y!? 5 

171 IF 5T$I5,5)= ,, 8" THEO POSITIOM X,Y+ 

lí? 'HP* 

174 ZF S>9 THEO X=X*1 

175 IF 5=T THEO RETURO 

176 5=5+1 íOEXT XiMEXT Y: RETURO 

408 GOSUB 1200; POKE 8 2,22 

481 P05ITI80 22, Z*? 

482 ? a 1 0PCI0ME5 f 

401 ? 'Vm 1 1 1 mi m J 1 *» ‘1 

r* 

484 G05UB 658 
412 Y=5iX=l 

411 G=PEEK (CONSOL) : XF C=6 THEO 420 

414 IF 6=7 THEO 411 

415 IF 6=5 THEO Y=Y*2:K=H+1:IF X>5 THE 
0 Y=5:X=i 

416 IF 6=1 THEO Y=Y-2¡0=X-1:IF X(i THE 
0 Y=1I;0=5 

417 P05ITI00 21,5:? CL$ 

418 P05ITI00 21, Y¡? A$((15«X)-14,Í5»K) 

419 GOTO 411 

420 CHOICE=X 

421 IF X=2 THEO FOR T=1 TO 5¡CL05E OT: 
OEXT T:£OTO 7 

422 IF X=1 THEO 608 
421 IF X=4 THEO 1220 

424 IF K=5 THEO GOSUB 1205 ¡GOTO 00 
426 POKE 82,12¡P05ITI00 11, 7í? 




'•¡FOR T=8 TO 20;P05I 

TICO 11, T:? '1 I" 

427 OEXT TíPOSlTIOO ll,21í? " 



428 P05ITI0H 13.?:? "I06RE5E FECHA* 1 

429 P05ITI00 11,18;? “A EXAMINAR" : POKE 

752, Z 

411 TRAP 4Xi:P05ITIOfl 11,13;? "6* 
¡IHPUT «16 ;OOAY$¡ POKE 752,1¡00=MAL(0 

OAY$) ; IF 00(1 OR OOXNBM THEO 411 
432 P05ITID0 11,9;? « 

*«!•++++++++++++++++ 

++++*++++++++*++++++ ■ 

431 P05XTI00 13,0:? : C 

0L=1;R0H=1 

434 OP$=B$ (280*00-199) 

416 FOR T=1 TO 18 

437 POSITIOO 12,T+9¡? 0P$ (28*T-19 , 2B*T 
) ¡OEXT T:POKE 82, 12; POKE 03,32:? “►"i 
419 CL05E 01 ¡OPEO UÍ,4,Z, M K¡ M ;C0L=I:R0 
0=1 ; BLK$=OP$ ; POSITIOO COL +10 , ROH+9 ; POK 
E 752, Z¡? T; 

448 GET 01,R:IF R=155 THEO 455 

441 IF R=27 THER 508 

442 IF R=126 THEO 466 

443 IF R>155 AMO R<160 THEO 440 

444 IF R>27 ARO R<32 THEO 448 

446 IF R>253 THEO 448 

447 C0L=C0L+1;IF R=32 THEO R=95 

448 IF DOL>20 THEH C0L=28 

449 IF COL<Z THEO C0L=Z 

450 P05ITI00 COL+18, ROH+9 ;IF R=155 THE 
0 ? m tt M ¡ CHR$ (R) ; R=95¡ BLK$ (COL, COL) =GH 
R$(R) ¡GOTO 440 

451 OLK$ (COL , COL) =CHR$ ÍR) ¡ IF R=25I THE 
0 B LK $ CCOL , COL) =CHR$ (95) 

452 ? CHAS (R) ¡ : GOTO 440 

455 REM 

456 OP$C2O*R0H-19,28*RON)=6LK$ 

457 ROK=ROM+l:IF R0H>10 THEO ROO=1 

453 BLK$=OP$ (20OROH-19, 20ORQK) 

459 COL=1:R=1S5¡GOTO 458 

460 REM 

461 C0L=C0L~1 

462 IF C0L(1 THEO C0L=1¡G0T0 440 

461 ? "T-*" ; ;BLK$ CCOL+1 , COL+1) ='*_" : 60T 

O 440 

508 GOSUB 948 

501 OP$C20*ROH-19,20MROIO=BLK$ 

502 IF QP$=HULL$ THEO 5T$ (00,00)=" **;G 
OTO 504 

SOI ST$ (00 , 00) ="•” : B$ (280000-199 , 20000 
0) =0P$ ; TRAP ERROR 


> 
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DISKETTE: continuación 


504 cióse «iteren »i, 8 ,z,f$ 

505 ? »i;5T$ 

506 FAST$(Í0,18)=CHR$(11) 

«07 D =USR (AON (FASTS) ,1, ADR (0$) ,6280) :C 
LOSE «i! POP ¡COTO 00 
600 POSITI0H 4,7¡? 11 




601 POSITIVO 4,0 ¡? *1 INCOESE WS PARA 
BORRAR f 

60Z POSITION 4,9¡? *1 INCOESE A\Ü DEL N 

es r* 

603 POKE 752,0 ¡POSITION 4,10lf * 




606 TRAP 60 ¡ POSITION 27 , 0 ¡? 

607 INPUT « 16 , 1016 ¡POKE 752 , 1 :? ¡FOR T= 
1 TO LENCMtS) JlF Mf$(T,T)= n " THEN MH$ 

COTO 615 

608 NEXT T 

615 RESTORE 10000 ¡TRAP 620 

616 FOR T =1 TO 12 

617 REAO FSíIF HMSOFS THEN 617 

619 IF HK$=» 6 NTH$ THEN FG -99 

620 GOTO 622 

621 POP ¡? , *t 3 “ ¡ CL 05 E «ltCOTO 686 

622 FO^OfíIF LENÍHHS) <0 THEN FfCLENC 

F$) M) =HH$ I COTO 625 

623 F$ (LEN ÍF$) *11 = HH 5 ti, OI 

625 POKE 752 , «¡POSITION 26 , 9 ¡? "«“¡Si 

KPUT « 16 ¡Y$¡P 0 KE 752,1 . m 

629 YE=VAL (Y$) : IF YE <1985 08 YE >2000 T 

HEN ? CHR$(253) ¡COTO 625 

638 F$ (LEN (F$) * 1 ) “ 

631 YE=YE- 190 » 

632 FS (LEN (F$) * 11 = 5 TR$ CYEI 

633 POSITION 4 , 8 !? ' 100 RRANDO MES,... 

r 

634 POSITION 4 , 9 :? *1 

r* 

635 TRAP 4080:810 33 ,« 4 ,Z, Z,FS:IF FG =5 

9 THEN RUN 

636 C 8 SUB 1205 ¡COTO 96 

650 ? *1 " 

■Bt'i? *i i" 

653 ? "V IR HUEVO ICS |"¡? '1 
r*¡? 'HORRANDO «ES I 1 

§56 ? *1 P':? * 1 OIRECTOR 

10 I":? 1 I" 

659 ? *1 SAL VENTANA l"¡? *1 


661 AS= 




IR HUEVO MES 



665 CL$=**0AT05 




«■«■«■IR NUEVO NES 44** «■«■«>*«•*«•«•«•«■<■«•*800 

RAUDO NES 

666 CLS (LEN (CLS) *1) ^DIRECTORIO 44 

******t*****tt*SAL VENTANA " 

667 RETURN 

900 REH 

901 GLOSE «1 

902 FS="D ¡ ” : F$ (LEN (FS) ti) =HONTH$ 

903 IF LEN(MDNTHS) <8 THEN FS(LENtF$)*i 
) = ,f . " ¡ FS (LEN (FS) *1) =STRS (YEAR-1900) : CO 
TO 905 

904 FS Ul , 11) =" . " : FS (12, 13) =STRS (YEAR- 
1900) 

905 TRAP 910:0PEN «1,12,Z,F$ 

986 INPUT «1,STS 

907 FASTS (10 , 10) =CHRS (7) 

908 X=USR (ADR (FASTS) , 1 , ADR (0$) , 6200) 

909 GLOSE «1 ¡RETURN 

910 TRAP 2000 ¡GLOSE «ÜGOSUB 2000 

911 ? «N4444 ^CREANDO NUEVO NES**” 

912 ? 11 ►NOMBRE ARCHIVO ¡ M ;F$ 

913 TRAP ERROR ¡OPEN ttl,8 f Z,F$ 

914 FASTS (10, 10) =CHR$ (11) 

915 5TS=" " : STS (NUH) =" '':STS(2)=5TS¡? 
ttl;ST$ 

916 ¡ 0$ (6200) ¡ 0$ (2) =B$ ¡ ? «1 J 

8$ ¡GLOSE «1 ¡RETURN 

940 POKE 752,1 ¡POKE 83, 39 ¡POSITION 14, 
22:? " SELECT=IMPRESORA M 

941 POSITION 14,23¡? " OPTION=SALVA S 
TARTzSALIfl"; 

942 AA=PEEK (CONSOL) ¡ IF AA=7 THEN 942 

943 IF AA=3 THEN RETURN 

944 IF AA<>5 THEN POP ¡G0SU6 1205; COTO 


960 REN 

961 GLOSE «5 ¡TRAP 981 ¡OPEN «5,8,Z,"P:" 

962 FON T=1 T0 LEN(OP$)¡IF OP$(T,T)=CH 
RSC95) TREN OPS(T,T)=* " 

963 NEXT T 

966 ? #5j"* DATOS «" 

968 ? «S¡? «5;NDNTH$; a> ,, ¡DD;", ,, ¡YEAR:? 
«5 

969 FOR T=i TO 181 STEP 20:? «5;0P$(T, 
T*19) ¡NEXT T 

981 POSITION 14,22¡? n 

l« 

982 POSITION 14,23¡? OPERACION COHPLE 
TA. H 
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DISKETTE: continuación 


983 FOR T=I TO 208:NEXT T:POKE CONSOL, 

1 

i . i 

1236 GOSUB 1285: TRAP ERROR: GOTO 80 

z 

984 POP : GOSUB 1285 ¡GOTO 80 


1240 IF F$ C5, 16) ^"SECTORES LIBRES" THE 

1000 REM 

1081 Y£=YEAR“1985 


N 1230 

1241 TRAP 1242 :IF VAL CF$ (11,12)) >84 TH 

1002 R ESTOPE 1818+YE 


EN RETURN 

1003 FOR T-l TO H:READ C;NEXT T 


1242 POP :T=T-1:NEXT T: RETURN 

1005 RESTORE 1050í FOR R=1 TO H:READ T: 


2800 ? "NQ**" 

NEXT R:IF H=2 ANO YEAR/4=INT CYEAR/4) T 


2091 ? "NO ESTA EL ARCHIVO"; HONTK$:? " 

HEN T=TH 


EN ESTE DISCO! 4 W" 

1086 RETURK 

1810 DATA 3,6,6,2,4,7,2,5,l,3,fi,l 


2882 ? " gEBEEt^RE-INGRESE-OATOU" 


2083 ? " CREAR NUEVO ARCHIVO" 

v-Pa 

1011 OATA 4, 7, 7, 3, 5, 1,3, 6, 2, 4, 7, 2 


2084 G=PEEK (CONSOL) : IF 6=6 THEN RETURN 

1812 OATA 5,1,1, 4, 6, 2,4,7, 3, 5,1,3 


2086 IF 6=3 THEN POP :CL85E Ü2:CL0SE II 

1013 OATA 6, 3, 3, 6, 1, 4, 6, 2, 5, 7, 3, 5 


2:CL0SE H3:CL0SE Sil ¡GOTO 7 

1814 OATA 1,4, 4, 7, 2, 5, 7, 3, 6, 1,4, 6 


2887 GOTO 2884 

1015 OATO 2,5,5, i, 3,6,1, 4,7,2, 5, 7 


3088 DATA 184,184,184,18,18,18,18,178, 

1816 DATA 3|6|6|2|4j7|Z|5|l|3|6|l 


169,7,157,66,3,184,157,69,3,184,157 

1017 OATA 4, 1,1, 4, 6, 2, 4, 7, 3,5, 1,3 


3018 OATA 68,3,184,157,73,3,184,157,72 

1018 OATA 6,2,2, 5,7,3, 5,1, 4,6,2, 4 


,3,32,06,220,132,212,168,6, 132,213,96 

1019 O&TA 7, 3, 3, 6, 1,4, 6, 2, 5, 7, 3, 5 


3188 OATA 104,164,133,215,184,133,214, 

1620 OATA 1,4, 4, 7, 2, 5, 7, 3, 6, 1,4, 6 


104,133,217, 104,133, 216, 104,133,218, 10 

1021 OATA 2, 6, 6, 2, 4, 7, 2, 5, 1,3, 6,1 


4,170,160,0 

1022 OATA 4, 7, 7, 3, 5, 1,3, 6, 2, 4, 7, 2 


3110 DATA 177,214,145,216,200,288,4,23 

1023 OATA 5, 1,1, 4, 6, 2, 4, 7, 3, 5,1, 3 


6,215,238,217,282,288,242,198,218,16,2 

1024 OATA 6, 2, 2,5, 7, 3, 5, 1,4,6, 2, 4 


38, 96 

1850 OATA 31,28,31,30,31,30,31,31,30,3 


4688 REH 

1,30,31 


4681 GRAPHICS Z:POKE 71B,70:P0KE 789,1 

120® SCR=PEEKC881+PEEK(89)«256 


4:P0KE P0KE82,2:P0KE 83,39:? 

1201 SAVADR=5CR-1024 


4082 6=PEEK (195) : IF 6=178 THEN 4087 

1202 0=ÍISR {ADR CHOV$) , SCR, SAVAOR, 980) : R 


4863 ? "NA OCURRIDO UN ERROR!":? I? 

ETI1RN 


4004 IF 6=162 THEN ? "EN ESTE DISCO NO 

1205 D=U5R IAOR (HOMO) , SAMAOR , SCR , 980) : R 


SE PUEDE INCORPORAR HAS ARCHIVOS ":? 

! ETURM 


:? :? :? "RUNttt fff** : END 

1220 REH 


4005 IF G=144 THEN ? "NO HAY DISCO EN 

^1222 CIOSE til i UPEN ^ti,6,Z, ,, D:^M^ ,, 


ORIVES» 0 SU DISCO ESTA PROTEGIDO" :ENO 

1223 POSITION 7,3í? 


4006 ? "ERROR"; G;CHR$ (155) ;"mRUNttt 

hf 


FFfr«;EUO 

1224 POSITION 7,4:? *1 DIRECTORIO 


4007 ? "EL ARCHIVO DE ESTE HES NO ESTA 

i” 


EN ESTE DISCO. 1( ;CHR$ (155) ;"4URUNttfF 

1225 POSITION 7,5:? 


tt»:ENO 

wdt* 


10000 OATA ENERO, 31 

1226 FOR T=i TO 16:TRAP 1230:IHPUT 81, 


10081 OATA FEBRERO, 29 

F$ ' GOSUB 1249 


10002 DATA HARZ0,31 

1228 POSITION 7,T*5:? *1 "jFSCZ,^) ¡" | 


10003 OATA ABRIL, 30 

“ : NEHT T 


10804 OATA HAYO, 31 

1230 GLOSE «U 


10805 OATA JUNIO, 30 

1231 POSITION 7,T+5:? 


10006 OATA JULIO, 31 

■■■ii 


10807 OATA AGOSTO, 31 

_ 1232 POSITION 7, TT6I? , 1 ,, ;F$;" |" 


10008 OATA SEPTIE«RE,3e 

1233 POSITION 7,T*7:? 


10809 OATA OCTUBRE, 31 



18010 OATA NOVIEHBRE, 30 

10011 OATA DICIEMBRE, 31 • 



1234 POSITION 14,23:? "PRESIONE START" 
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Este mes continúa la columna con una serte de 
cortos programas en ASSEMBLE fí para que pueda 
practicar usando el Editor de este lenguaje . 

Para adquirir este programa en casete o dis- 
kette consulte el Catálogo adjunto en la sección 
Utilitarios, 



EJERCICIO 1: 

— Uso de instrucciones de transferencia. 


Digite el siguiente listado con el Editor de 
ASSEMBLE R: 



Explicación de líneas de listado: 

10 Fija localización inicial para el programa ob- 
jeto (página seis}. 

16 


20 Carga el acumulador con el valor $ 0F {15 
decimal). 

30 Transfiere este valor al registro X. 

40 Carga el acumulador con $ FF (255 decimal), 
50 Transfiere este valor del acumulador al regis- 
tro V. 

60 Detiene la ejecución. 

Digite la instrucción: 

ASM 

y al cabo de algunos segundos aparecerá en pan- 
talla el programa ilustrado más abajo. Esto indica 
que el programa de códigos objetos se encuentra 
localizado en página seis. 
































Explicación de líneas: 

10 Fija posición inicial de programa objeto en 
página seis. 


15 Carga el acumulador con el valor 160 deci- 
mal. 

20 La instrucción CLC limpia el CARRY (bit), 
coloca un 0 en el bit carry del 6502. No olvi- 
de de introducirla en todas las operaciones 
de suma para evitar errores. 

30 La nueva instrucción adiciona el decimal 95 
al valor presente en el acumulador. 

40 Esta instrucción mueve el valor presente en 
ei acumulador hacia una localización de me- 
moria designada por ANSWER, 

50 Detiene la ejecución. 

60 Fija el valor de la localización ANSWER 
$ D202. 


¿Cuál es eí valor correspondiente decimal ? 

D —13 * 16- 208 
2 2 

Valor primer NIBBLE 

210 

210 * 256 = 53760 

Valor de D202 = 53762 
Digite a continuación: 

ASM 

y el programa se localiza en la memoria para la po- 
sición designada en página seis. 

Digite: 

BUG 

y luego: 

G600 

Finalmente examine el valor de la localización 
D202. Ella debería contener el valor 255 ($ FF). 

¿Cómo examinar el contenido de esta locali- 
zación? 

Ese es el desafío para nuestros lectores. Envíe 
cartas con esta respuesta y gane premios. 

El próximo mes continuaremos con nuevos 
ejercicios. • 


Ahora podrá apreciar los valores correspon- 
dientes a los indicados en el programa inicial. 

Usted puede continuar con modificaciones 
en los valores de las instrucciones, para determi- 
nar y comprobar los valores que aparecen en los 
registros, 


0000 

10 


«0600 

0600 A%0 

15 

LDA 

«160 

0602 18 

20 

CLC 


0603 695F 

30 

ADC 

«95 

0605 8002 02 40 

STA 

ANSWER 

0608 00 

50 

BRK 


D202 

60 ANSWER 

* 

«0202 


A continuación digite la instrucción: 

BUG 

Para ejecutar digite: 

G600 

En pantalla aparecerá lo siguiente: 








EJERCICIO 2: 

— Sumar dos números. 






Digite con el Editor el siguiente programa: 


id 

*= $8608 

15 

LOA 8168 

2t 

CLC 


AOC 1195 

í 48 

STA ANSWER 

58 

BRK 

68 

ANSMER= $8282 

78 

.END 


ASSEMB LER 
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ASSEMBLER: continuación 



USR 


TECLAS DE CONSOLA 


La rutina USR de este mes permite optimizar el 
uso del teclado de consola, con lo que se aumen- 
tan las posibilidades de direccionamiento por la 
mayor cantidad de valores registrados. 


Para recordar este tema remítase a MUNDO- 
ATAR! No. 2, página 24. Con la rutina de hoy po- 
drá usted detectar valores con lateóla SHIFT, 

Para llamar la rutina digite: 

101 GOSUB 31000 

y la función para llamarla es la siguiente: 

BUTTON = USR l1536 r D) 

en la cual debe introducir el parámetro D que per- 
mite 3 valores: 

0 = ON 

1 — OFF 

128 ~ON y detecta la última tecla presionada 

Los valores de retorno son los siguientes: 


(0) (i) 

normal ampliado 


Sin presionar 7 0 

START 6 1 

SELECT 5 2 

OPTION 3 4 

SHIFT START n 9 

SHIFT SELECT n 10 

SHIFT OPTION n 12 


Como esta rutina funciona durante el VBi, 
queda activada permanentemente mientras no se 
modifique la rutina. 

Utilice esta rutina en sus programas y aumente 
las posibilidades de selección de menú. 

Escríbanos para comentar el avance de su co- 
nocimiento de la máquina. 

Hasta el próximo mes. 


IB GOSUB 31900 
20 END 

31000 RESTORE 31100: FOR XX=1536 TO 153 
6+111 i READ XXX : POKE XX* *XXK:XEKT XX:RET 
URN 

31100 DATA 169,0*141,111*6,104,288,1,9 
6,170*104*104,141,112,6,202 
31110 DATA 248,5*104,104*202,268,251,4 
4,112*6,240,30,48,5,169,1 
31120 DATA 141,111,6*169*6*133,213*169 
*112* 133*212*162*6*160*75*169 
31130 DATA 7*32*92*220*169*0*141*112*6 

*96*169*200*133*213*169*31 
31140 DATA 133*212*162*220*160*98*169* 
7*76*92*228*173*15*210*41*8 
31156 DATA 13*31*208*73*15*174*111*6*2 
88*9,170*41,247*240*13*138 
31160 DATA 76*185,6*170*41,247*248*1*1 
38*141*112*6*76*90*228*0 • 
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TIPIANDO 


■ 


PRIMER JUEGO DEL MES: 

Rebotes 



£ N este juego simple pero de gran entretención 

participan 2 jugadores. 

En pantalla aparecerán desplegadas varias fle- 
chas en diferentes sentidos. 

Por medio del joystick tendrá que colocar una 
flecha en frente de su disparador, que se encuentra 
en la orilla, Al disparar el proyectil chocará con la 
primera fleche que encuentre y tomará la direc- 
ción indicada por ella. Y así sucesivamente, hasta 
llegar a la orilla. 

Ganará quien logre mayor cantidad de flechas. 


8 BRK=i : IF PEEK (532791 =5 THE# BRK=8 
18 SOSUB 568 
28 60SUB 588 ¡SOTO 128 
46 POKE 77,8:*»Y=LV:PX=Z+34#CPT=21¡V=2* 
2*(PT=2)¡P0KE 5C+PX+48#PY,1B 
58 POKE 5C+PX+48*PY,8:PY=PY+ÍV=3)-tM=l 
1 ¡ PX=PX+ (0=2) - (0=41 ¡PP=PEEK (SC+PX*48*P 
Y) ¡POKE SC+PX+48*PY,16 
68 POR 0=1 T0 16 ! NEXT 0¡IF PP=12 0R PP 
=12 THE N C0SU6 348¡RETU8i 
78 0N CPP<>4 ANO PP<>5 ANO PP<>6 ANO P 
P<>7 AND PP<>8 ANO PP<>9) GOTO 56¡P0KE 
718, 67 ¡POKE 5C+PX+48*PY , 83 
88 FOR K=1 TO 288 STEP 3¡S0lfN0 l,K,8,i 
8 ! NEXT X! SOUNO 1,8, 8,0: POKE 718,35 
98 0=i*íPP=6) +2*(PP=4 OR PP=B) +3*ÍPP=7 
)+4*(PP=5 OH PP=9) : 51=51+ CPT=11 ¡52=52+ 


CPT=2>:GOSUB 488 

188 NA=KA-(PP<>8 ANO PP<>9)¡0N NA=8 GO 
TO 42B:G05UB 486 ¡GOTO 58 
128 LJK=28:G05UB 618¡PT=1:0T=36¡G05UB 
288 ¡ LP=B : LK=1 ¡ LY=Y1 ¡ G05UB 168 ¡ Y1=LY 
138 UK=B¡G05UB 618¡PT=2¡0T=36tG0SUB 2 
88 1 LP=9 ¡ LX=37 : L Y=Y2 ¡ 685U6 168 : YZ=L Y 
148 GOTO 128 

168 TR=5TRIG (B)*CPT=1) +5TRIG U1*(PT=2) 
¡ON TR=0 GOTO 48:5V=5TICKI0)*(PT=11+5T 
ICK(i)*CPT=2) 

178 ON 5V(>13 AND 5V<)14 GOTO 168: POKE 
5C+LX*48»LY , 8 ¡ LY=LY+1*CSV=13> -i*CSU=l 
41 :LY=LY+Í*ÍLY<l)-i*CLY>I9) 

188 POKE SC+LX+48KLY,LP:F0R 0=1 TO 15: 
NEXT D ¡ GOTO 166 

288 POKE SC+1+4QNV 1 , 8 i POKE 5C+37+4 8*V2 
,9¡P05ITI0N 9,8¡? ‘ WgMaMaraEMP 1 ¡ C 
HRl(OT) 

218 TR=5TRIG C8)*(PT=Í)*5TRI6(1)N(PT=ZJ 
:¿F TR=8 THEN FOR 0=1 TO 288¡NEXT 0¡G0 
TO 258 

228 5V=STICK C8)#(PT=1) +5TSCK (I)*CPT=2) 
¡ON SU 0 14 ANO SVOIS ANO 5V(>7 ANO SV 
<>11 GOTO 288 

238 DT=36*(5V=72 +37#C5U=11) +38* (50=14) 
+39*CSV=13) ¡GOTO 26i 
258 P05ITI0N 9.8¡? " 


t Míiitiii 


> 
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TIPIANDO: continuación 


‘ f f * f 

4 4, t t * * 

t i- w 

+ ♦ 

* ♦ 

f n t t * i 

4 t 

f 4 

_ 4 

4 * >. 1 1 

4*4 * +■ 


4 4 


92S: 


':1 SBifirrCEcnHf 




":CX=20;CY=10:eP=PEEKC5C+CK+48*CY):POK 
E 5C+CX+48*CY, OT+96 
268 TR=5TRIGC0>*CPT=1)+5TRIGC1)*CPT=2) 
278 IF TR=B ANO CPÜB THEN 5 DUNA 1,42, 
2, 12:F0R 6=1 TO 50 ¡NEXT 0: SOUNO 1,0,0, 
8 ¡GOTO 26B 

280 ZF TR=0 AMR OP=0 THEN POSITION CX, 
CY:? CHR$(OT) :FQR D=i TO 280:NEXT 0:NA 
=NA+1 : G05UB 400 : RETURN 
290 SV=5TICK C8)*(PT=i> +5TICK CI)#(PT=2> 
:0N 5V=I5 GOTO 260:POXE 5C+CX+40*CY,CP 
380 CX=CX-i*(5V=9 GR 50=10 OR 50=111 +1 
*(5M=5 OR 50=6 OR 50=7) 

318 CY=CV-1K(50=6 OR 50=10 OR 50=141+1 
*(50=5 OR 50=9 OR 50=13) 

320 CX=CX+I*{CX<3>-1*CCK>35) :CY=CY-1*C 

CY>19)+1*(CY<1) :CP=PEEK(5C+CX+40*CY) ¡P 

OKE SC+CX+40*CY, OT+96 : GOTO 260 

340 ON PP=13 GOTO 370: FOR H=PX TO 0 5T 

EP -líPOKE 5G+H+40*PY,I1:5OUNO 1,H*50, 

10,8;FOR 6=1 TO 15: NEXT 0 

350 FOR H=PX TO 0 5TEP ~1:P0KE SC+H+48 

*PY, 11 ¡SOUNO 1,H+50,10,8:FOR 0=1 TO 15 

:NEXT O : POKE 5C+H+48*PY,12 

360 POKE 5C+H+48*PY , 12 : NEXT HiSOUHO 1, 

0,0,6: RETURN 

370 FOR H=PY TO 1 5TEP -i ¡POKE 5C+PX+4 
6*H,14:50UND 1,11+50, 10, 8: FOR 0=1 TO 15 
:NEXT O : POKE 5C+PX+40*H, 13 ¡ NEXT H 
300 50UN0 1,0,0,0:RETURN 
400 POSZTION 9,21:? S1:P05ITI0N 37,21: 
? 52 ¡POSZTION 25,21:? NA¡" "¡ RETURN 
420 GRAPHICS 17:P05ITI0N 5,2:? 86;"PI!B 
HMAJJ,P >iPfl5TTTflM 5,3!? 86;"= ========" 

¡POSZTION 4. 5 : ? 86 ¡ « mftHWdlB" J 51 
430 POSITION 4,7:? 86; > fB^Sza >, ;52:I 
F 51=52 THEN POSITION 5,10¡? tt6;“TERHl 
NO ! H : GOTO 450 

440 H=l+C52> 51) ¡POSITION 3,10:? »6l ia n!l 

E£EES H ;H; I> 0 


ano 


k* 


450 POSITION 3,14:? tt6; , «firaaniIEK5 TáRT> n 
: POSITION 3,15:? 

468 FOR Z=1 TO 2 : RESTORE 650: FOR X=1 T 
O 8 : REAO P¡REAO O : SOUNO 1,P,18,8:50UN0 
2,P+10,10,6:F0R 0E=1 TO OiNEXT OE 
470 SOUNO 1,8,0,0:5OUNO 2, 0,0,0 ¡NEXT X 
¡NEXT Z 

480 ON PEEK {53279)06 GOTO 480 ¡GOTO 26 

500 GRAPHICS 0¡POKE 752,1 ¡POKE 756, ST/ 
256 : POKE 710 , 35 ¡ 5C=PEEK C88) +256NPEEK 18 
9) : 51=6 : 52=0 : Yl=ie : Y2=i0 

505 POKE 77,0¡IF BRK THEN POKE 16,112: 
POKE 53774,112 

510 COLOR 45 ! PLOT 0,1:DRAHTO 0,19:PLOT 
38,1 ¡ORAHTO 38,19 

511 COLOR 44 ¡PLOT 8,0:ORAMTO 38,0¡PLOT 
0,20:ORAHTO 39,20 

520 NA=0: POSITION 0,21:? "JUGAD0R1: 
NUMERO FLECHAS JUGA00R2 i " : Yl=10 : Y2=10 
530 Y=IRT IRNO (0) *19) +1 : X=INT (RND (0) *33 
) +3 * V=INT (RNO C0) *4) +4 ! IF PEEK CSC+X+40* 
V)<>0 THEN 530: POKE 5C+X+48*Y,V 
540 POKE 5C+X+40*Y , V : NA=N A+l : G05UB 400 
Í0N NAO50 GOTO 530 ¡RETURN 
560 POKE 106, PEEK (740) ~5: GRAPHICS 17 ¡P 
05ZTION 6,7:? 86;"REB0TE5 (, :P05ITIQN 6, 

«¡? 86;" "¡POSITION 8,10 

565 POKE 77, 0:IF BRK THEN POKE 16,112; 

POKE 53774,112 

570 POSITION 1,13¡? lilfllIM filiSgilTi Q 

: 5T= (PEEK C106) +11*256 

575 HOtf E= AOR ("KNTHTO ^IÍKTOMYII f. 

tina rama l aaam B+fl»") 

576 REN X=USR (NOVE , FROM-A 00RE55 , T 0_A0D 
RE55, ANOUNT) 

580 X=USfi(HOVE, 57344, 5T, 1024) 

501 «=AOR( , ^A^4^4ró04i«BHJ^JJJ- 

VfVffHHluniKBIBir 1 ) 

585 X=USR (NOVE ,0,5T+32, 88) 

590 IF (STRIG(0) ANO STRIGCD) THEN 59 
0 

600 RETURN 

610 FOR K=CLJK=28)*28 TO CLJK=0)*28 ST 
EP (2*(LJK=0)-1) 

615 50UN0 2, C“2,179*K+121) ,14,14 
620 POSITION K,22:? H ======== ";;SOUN 

O 2,0,0,0:NEXT K 

630 POKE 77,0¡IF BRK THEN POKE 16, 112 ¡ 
POKE 53774,112 
635 RETURN 

650 OATA 62,20,58,28,5*!, 20, 48, 30,48,38 
,54,20,58,20,62,50 • 
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TIPIA NOO: continuación 


SEGUNDO JUEGO DEL MES: 

Cuatro 



FSTE es un juego estratégico en BASIC, para 

competir con el ATAR! o con otro jugador. 

Digite el listado siguiente y grábelo en su pe- 
riférico (diskettera, casetera). 

Digite RUN y aparecerá en pantalla una atrac- 
tiva presentación con Interrupción de la Lista de 
Despliegue (DLI, será el tema de continuación de 
la columna Técnicas una vez terminado el actual 
de Player / Missi 

Las líneas inferiores permiten seleccionar el 
color usado por cada jugador por medio del joy- 
stick. Seleccione ATAR! para 1 solo jugador. 

Si usted juega contra el computador el pro- 
grama usará una rutina de inteligencia artificial, 
que discriminará la mejor jugada contra usted. 

El juego presenta también la modalidad de 
random, en la que el ATARI selecciona al azar 
las posibilidades. 

Como jugar: 

Después de seleccionar los jugadores (con 
OPTION) presione START para iniciar el juego. 

La pantalla muestra el número de la movida 
y el turno del jugador. Mueva el joystick hacia 
arriba o hacia abajo y presione el botón. Apare- 
cerá un cuadrado correspondiente a su color en 
la línea. 

Sucesivos cuadrados aparecerán en las lí- 
neas siguientes, Gana quien complete 4 cuadra- 
dos del mismo color en una línea. 

Usted puede terminar con SE LECT. 


6 REH JUEGO CUATRO HAYO 1980 
10 GRAPHICS 7 : POKE 708,0 ¡POKE 709,0:PO 
KE 71B,0:A1=9 

20 DIN 0(3,13 ,B(9« 7) ,PC1)|H»},P$U2) 
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30 BL=PE£K (5&B3 +PEEK (561) #256 : POKE DL+ 

85, 71! POKE DL*88rl2 

40 ? " CUATRO": POKE 752,1:? “ 

«I 

50 ? " NU NOO ATARI HAYO 08" 

60 G05UB 30600 

65 POKE 708, liíPOKE 709,0;P0KE 710,190 
70 POKE CA, 26: POKE CB,26 
80 POKE SET+82, 198: POKE SET+03,190 
90 RESTORE 

100 FÜR T=1 T0 6:F0R Y-8 T0 5iK=T*16+Y 
*2+58: POKE 5ETU*13+Y-5,X 
110 POKE SET +T*13“Y“6 , H : NEHT Y : NEXT T 
120 F0R T~0 T0 3:READ X, Y:DCT I 0)=X:D(T 
,1) =Y:HEXT T:0ATA 1,1, 0,1, -1,1, -1,0 
130 P$=" RAND0H STICK 1 STICK 2 ATARI 
HEGROBLAHC" ¡ P (8) =2 : P (i) =4 
140 ? 86;CHR$(125):? CHR$ (125) ;; POKE S 
ET+82,8:P0KE SET+83, 0:POKE DL+85,198 
150 POKE DL+88, 134: POKE PL+89, 144: POKE 
0L+9O, 130: POKE 5ET+8I, 190 : POKE 77,0 
160 G0SUB 490;X=PC0)*8:? " NEGRO; ";P$ 
(K-7,K);" BLAHC : ;X=Ptl)*8 

170 ? P$(X-7,X);? "AJUSTE CON J0YSTIC 
X: BOTON Y INICIA ":? CMR5C29); 

188 POKE SET +81“A, 0 : POKE SET+A+88,164 

198 K=STICK(0) :P=PEÉK (53279) :IF N0T S 

TRIG(O) OR P“6 THEN 230 

200 IF K~13 OR K=14 OR P~5 THEN G0SU8 

490: A- NOT A:G0T0 180 

210 IF K<14 OR P=3 THEN K=P (A) : K=K+1 : K 

cK-4*(K-S) : PÍA) =K: GOTO 160 

220 GOTO 190 
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TIPIANDO: continuación 



230 POKE SET+A+88,0:? CHR$(29) ;CHR$C15 
6) ; iFOR Y=1 TD 6¡HCY)=8:HEXT Y: 0=1 
240 POKE OL+98 , 140 i POKE SET+83,0¡PÜKE 
OL+89, 135 ¡POKE 5ET+82,178 
250 A=PEEK (53770) >127 ¡FOR X=8 TO 9: FOR 
Y=0 TO 7¡B(X,Y)=0¡NEXT YíNEXT X 
260 ? !? CHRS (28) ; : GOSUB 688ÜF 0=49 T 
HER ? " UN JUEGO !!!“¡60T0 540 
27» POKE SET+80+A,164:? Rj , \ ,,, ¡P$C33+5 
«,37+5«0);» TUR0O"; 

280 8=P(A)-2¡T=0:0N P(A) GOSUB 350,418 
,410,568 

290 X=H(T):H(T)=X-1 ¡COLOR 2~A¡F0R D=X* 
20-16 TO X*28-l : PLOT O,T*I3-10 
308 DRAMTO 0,T*13~l:NEXT 0: Y=T:B(X, Y)= 
A+l 

310 FOR 0=0 TO 3 ¡ GOSUB 360 ¡IF R<3 THEN 
0EXT Di GOTO 330 

320 FOR T=i TO 5¡? CHRS (30) ¡ ¡NEXT Tí? 
"GANA! > !»; :T=0:R=T ¡COLOR 3: GOTO 500 
330 POKE 5ET+80+A,0¡A= NOT A:N=N+l:GOT 
0 260 

348 T=INTÍ6*RN0C1))+1:XF HÍT) THEN RET 


350 POKE 53279,4: GOTO 340 
360 T=1:R=0 

370 IF B(X+T*O(0,0>,Y+T*DÍO,1)>=A+1 TH 
E0 T=T+1 : R=R+1 ; GOTO 378 
380 T=-l 

398 IF B(X+T*OC0,0),Y+T*D(O,l))=A+i TH 
EN T=T-l:R=R+l*GOTO 390 
480 RETHRR 

410 T=T+l:IF NOT HCT) THEN 418 
420 R=SET+T*13-6 í BR=PEEK (R) : X=4 : 8=1 
430 X=X+1 : IF X=5 THEN POKE R, 255*0 ¡POK 

E R+l, 255*0 ¡X=0;O= NOT O 

440 IF PEEK (53279) =5 THEN POP :POKE R, 

00: POKE R+l, BN: GOTO 140 

450 POKE 77,6: K=STICK (8) ; IF STRIGCB) A 
NO K=15 THEN 438 


468 POKE R,BN'POKE R+1,BN:K=(K=14) iK=K 
*2-1 :IF NOT STRIG(B) THEN RETURN 
470 T=T-K:T=T+6*C NOT T) :T=T-6*(T=7) :I 
F NOT HCT) THEN 478 
480 GOTO 428 

498 FOR C=15 TO 8 STEP -1: SOUNO 8,121, 
Í8,C¡NEKT C : RETURN 

508 POKE 710,15* NOT A: FOR 8N=-1 TO 1 
STEP 2;T=CBN=1) 

518 B=X+T*0 (0,0): K=Y+T*0 (O, 1) ; IF B(B,K 

><>0+1 THEN NEXT BN: GOTO 540 

528 T=T+BR:FOR 0=8*20-13 TO B*20-4¡PLO 

T N,K*13-8:DRAHT0 N,K*I3-3:NEXT 0 

5X8 GOSUB 498¡ GOTO 516 

548 POKE 77,0:IF STRIGC0) ANO PEEK (532 

79) =7 THEN POKE 710, PEEK (20) ¡ GOTO 548 

550 POKE 710, 198 ¡GOTO 140 

560 B=8 : BN=-18 A 11 ¡ P=B : IF N<3 THEN 350 

578 GOSUB 680! POKE 53279,P:C=0:P=P+1¡I 

F P=7 THEN T=fi: RETURN 

580 X=H CP) : Y=P : IF NOT X THEN 578 

590 FOR 0=0 TO 3 ¡GOSUB 360:C=C+R:IF R= 

2 THEN C=C+20 

608 IF R>2 THEN T=P¡ RETURN 
610 NEXT D:A= NOT A: FOR 0=0 TO 3;G0SUB 
360:C=C+R:IF R=2 THEN C=C+18 
620 IF R>2 THEN C=C+SET 
630 NEXT 0:A= NOT A:IF X=1 OR N<6 THEN 
666 

640 X=X-1¡F0R 0=0 TO 3 ¡GOSUB 368:C=C-2 

00*(R>2) ¡NEXT 0:A= NOT A 

650 FOR 0=0 TO 3 ¡GOSUB 36B:C=C~3000*CR 

>2) ¡NEXT 0¡A= NOT A 

660 IF OBN THEN BN=C:B=P 

670 GOTO 570 

680 IF PEEK (53279) >5 THEN RETURN 
690 POP ¡POP ¡GOTO 148 
25800 REH OLI: 

30000 RESTORE 30O48 ¡FOR T=1536 TO 1568 
¡READ O : POKE T,0;NEXT T 
38010 REAO CA, CB ¡ SET=T : 0=PEEK (560) +PEE 
K (561) *256+2 ¡POKE O,240:N=8¡POKE 512,1 
iPOKE 513,6 

36020 0=0+1: POKE SET+N, PEEK (712) ¡T=PEE 
K(0) ¡IF T=65 THEN POKE 1556, S3*N¡ POKE 
54286, 192 ¡RETURN 

30830 T=T-i28*CT>127) ¡POKE 0,T+128¡P0K 
£ SET+N, PEEK (712) ¡N=N+1 ¡ 0=0+2* CT>64) ¡G 
OTO 38020 

30040 OATA 33,72,138,72,174,0,6,189,0, 
6,141,10,212,141,24,208,141,26 
30850 OATA 208,224,152,208,2,162,32,23 
2,142,0,6, 104,170, 104, 64,1550,1553 • 
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LOGO 


LECCION 3 


Hola ami güitos, aquí estamos de vuelta con 
LOGO y la tortuguita. Hasta ahora hemos apren- 
dido los comandos: MX, AV, DE, LM, LT, SZ, RE, 
SL y LA, hemos usado REPITE y la tecla SHIF í . 
Esperamos que ya los domines bien, porque aún 
te faltan otros por aprender. 

En la lección 2 usamos SL GEN ¿te fijaste 
qué pasó? 

10o. comando: CEN (centro) 

Este comando hace que la tortuga se dirija al 
centro de la pantalla y quede mirando hacia arri- 
ba ,del monitor. Si antepones el comando SL no 
marcará el desplazamiento. 

Dígita: 


au im de íee 

AV 186 CEN 
LM LT 

& y es iz 90 

AV 30 SL CEN 

LM LT 

REPITE 363 [Ay i DE 11 
LA REPITE 368 EAV 1 DE 13 

LM LT 

REPITE 96[AV 1 &E 43 
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12o. comando: TG (con tortuga) 

Este comando hace aparecer nuevamente a 
la tortuguita, que se había hecho invisible al usar 

el comando ST. 

Dígita: 


AV 

36 

5T 



¡ TS 

AV 

48 

DE 99 


AII 

MV 


DE 

98 

j*- 

r- j 

3 I 

AV 

76 



DE 

98 

AV 

69 


DE 

45 

av 

188 


i ' 11 

90 

AV 

30 


CEN 




TG 





LM 

LT 




Dígita: 

AU 

30 




LG 

RE 

58 



DE 

M 

Ay 

79 


LA 

RE 

78 



IZ 

36 

AV 

56 


LG 

RE 

25 

- L 


AM 

25 




kE 

25 

LA 

AV 25 



13o. comando: LG (lápiz goma) 

Este comando te sirve para borrar alguna 
línea que esté en la pantalla. Si lo utilizas para 
desplazar a la tortuga, no dejará marcado su paso. * 
Por lo tanto, una vez que hayas borrado la línea f 
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11o. comando: ST (sin tortuga) 

Hace que la tortuga desaparezca de la panta- 
lla. Sólo se ve lo que está dibujando. 

Dígita: 


AV 180 IZ 45 
AV 18 DE 99 
m 5 DE 90 
SEN 

IZ 45 AV 09 
DE 135 AV 188 
SL CEN 
T£ 

LM LT LA 








LOGO: continuación 



deseada debes ordenar LA, para continuar dibu- 
jando. 

Dígita: 



Dígita: 


REPITE 369 £AM I IZ 13 
REPITE 40 EAM 1 IZ 13 
fty 80 IZ 118 
AM 88 

IZ 80 SL AM 25 
LA REPITE 45 EAM 1 IZ Sí 
5L AM 38 

LA REPITE 45 EAM 1 IZ 83 
IZ 98 5L AM 38 
LA REPITE 45 EAM 1 DE 33 
5L CEU 

IZ 130 AM 35 DE 45 


LA AM 69 
5L SEN 5T 



Después de hacer el ejercicio anterior habrás 
notado que estamos haciendo figuras, utilizando 
círculos. 


Recordemos un poco de geometría. ¿Sabes? 
un círculo tiene 360 grados, de modo que cuando 
le dices a la tortuguita que avance un paso y gire 


a la izquierda una vez, y que esto lo repita 360 ve- 
ces, te dibujará un círculo. Cada paso que vire a 
la izquierda (o derecha) corresponderá a un grado. 

La orden quedaría así: 

REPITE 360 EA» i IZ 13 

Si quieres que el círculo te quede más peque- 
ño, por ejemplo la mitad del anterior, tienes que 
ordenar que cuando de un paso gire dos grados, 
y que esto lo repita la mitad de veces. 

La orden quedará así: 

REPITE 186 EAM i IZ 23 


El círculo se cerrará antes y será más pequeño. 
Prueba tú hacer círculos aún más pequeños. \ 
Digita: 


5L 

AM 

3@ 




■ 

LA 







REPITE 

368 [AM i 

DE 

13 


REPITE 

368 EAM 1 

IZ 

13 


REPITE 

180 EAM 1 

IZ 

23 


5L 

CEN 






LA 

REPITE 

180 [AM 

I 

DE 

13 

5L 

CEN 






LA 

REPITE 

180 EAM 

1 

IZ 

13 

5L 

CEN 






AM 

68 

LA 

AM 25 CEN 


« 

Dígita: 

LM 

LT 






IZ 

98 

5L i 

AM 108 * 




LA 

DE 

98 

■ 




REPITE 

4EREPITE 

99 EAM 

i DE 23 

til 

IZ 

180 





Con este ejercicio hici 

rnos ARCOS, y como 

puedes ver, 

el REPI'i E nos 

es 

muy útil. Aquí lo 

usamos dos 

veces. 



/ 


Digita: 







LM 

LT 






5T 

AM 

78 

DE 98 




AM 

70 

DE 

90 

í 



TG 

DE 

45 





CEU 






LG 

AM 

70 

CEN 




1 LA 

IZ 

45 

AM 188 




I LG 

RE 

100 




, LA 

CEN 






Bueno amiguitos, ia practicar! 
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UN SIETE PARA LOS OCHO 




ÉFsfe título sirve para cumplir integralmente 
con ¡a información acerca c/e los Procesadores de 


MUNDOATARI describe a continuación 7 
Procesadores de Texto disponibles en el mercado, 
para que usted seleccione y/o complemente su 
biblioteca personal de software. 









Usted puede disponer una impresora por un 
precio menor a! de una máquina eléctrica, que en 
conjunto con el software que usted seleccione le 
permitirá disfrutar de la tecnología actual de los 
Procesadores de Tex to en su casa. 



Este Procesador de Texto, poderoso y ver- 
sátil, de uso generalizado en Chile, pues se en- 
cuentra traducido ai español en la versión Multi- 
editor (de Multisoft), con manual de uso. 

La versión original en inglés presenta la 


► 


MAYO 1988 


25 








APLICACIONES: continuación 



particularidad de incrementar la memoria de los 
12,3 Kb al usar e! Banco Secundario del 130 XE. 
Para ello la opción START B conmuta entre un 
banco y otro, 

ATARIWRITER PLUS puede configurarse 
a cualquier impresora. Usted necesita cargar el 
Prtnter Driver, al iniciar el software. 

La prevista (visión de cómo quedará el texto 
impreso en el papel) da un scrolling horizontal 
en 200 columnas. 

Tiene acceso a crear un correo electrónico 
con un máximo de 255 registros por archivo. 

La opción de búsqueda es rápida y permite 
efectuar modificaciones. 

En próximos números publicaremos una 
serie de trucos con el ATARIWRITER para opti- 
mizar su uso. 

• FIRST XLENT 

Producido por XLENT, software de USA, es 
un nuevo Procesador de Texto con algunas opti- 
mizaciones, tales como: 

- Adiciona dibujos a sus textos. 

Uso del joystick para mover el cursor. 

— Edita dos documentos en uno. 

— Carga en memoria una fuente, tal como el 
set internacional. 

— Carga archivos desde cualquier Sistema Opera- 
tico, incluyendo el Sparta DOS. 

— Usa el RAMD1SK del 130 XE. 

— Tiene un buffer visible y editable. 

— Presenta un menú de selección con iconos. 

• PAPERCLIP 

Producido por Batteries Inciuded, Es uno de 
los mejores Procesadores de Texto para ATAR!. 
Algunas de sus características son: 

— Presenta capacidades de macro software. 

Tiene una estructura de comandos eficientes 
y rápidos. 

— Trabaja con 2 ventanas y una tercera para el 
buffer. 


— Trabaja con archivos estándar. 

— Ofrece funciones matemáticas ( +, *,/ ), 

edita total y subtotal. 

— Acceso a correo electrónico. 

— Definición de impresora (Printer Driver). 

— Vaciador de pantalla gráfica. 

— Convertidor de programas con ATARIWRITER 

• LETTER PERFECT 

Este es uno de los antiguos Procesadores de 
Texto. 

Características principales: 

— Usa su propio Sistema Operativo y no es 
compatible con el DOS. 

— Necesita el Translator para correr con los 
nuevos modelos ATAR ! XE. 

No es el más adecuado para su uso y con el 
tiempo ha perdido su versatilidad. 

• SUPERSCR1PT 

Procesador de Texto con estructura de menú 
y que al conocerlo puede usarse con teclas de 
control. 

Características principales: 

— Permite funciones matemáticas. 

— Permite calcular en columnas y filas. 

— Los formatos de impresora son flexibles y 
de uso variado. 

— Presenta un diccionario corrector de 20.000 
palabras en inglés, 

— Con el 130 XE puede hacer uso del Banco 
Secundario. 

• WORD MAGIC 

Ver en MUNDOATARI No. 11, página 29, 
una descripción detallada de este Procesador de 
Texto, 

• HOME PAK HOME TEXT 

Se trata de un buen Procesador de Texto, 
aunque su uso es muy reducido. 



CARACTERÍSTICAS PRINCIPALES DE PROCESADORES DE TEXTO 



Atari Writer 

XLent 

Pap$rdip 

Letter Parí. 

Superscript 

Word Magic 

Home Text 

Printer Driver 

si 

si 

si 

si 

sí 

si 

si 

Máximo memoria 
archivo 

12,3 

28,3 

25 

28 

15,2 

23,7 

6,5 

Ventanas pantalla 

1 

1 

2 

t 

1 

1 

1 

Scrolling horizontal 

s¡ 

no 

si 

no 

no 

no 

no 

Espaciamiento proporc. 

no 

si 

Si 

si 

no 

no 

no 

Impresión doble columna 

si 

si 

si 

1 

no 

no 

no 

no 

Código Impresora 

si 

no 

si 

si 

si 

sí 

no 

Correo 

si 

si 

SI 

si 

si 

si 

sí 

Memoria extra 1 30 XE 

46,5 K 


usa 

Ramdisk 

.64,1 K 
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Colegios con ATARI 



MUNDOATARI inicia nuevamente I a visita de (os 
Colegios con ATAR!, para ayudar a todos los co- 
legios latinoamericanos que cuentan con este com- 
putador o consideren su imp/ementación. 

Para sus inquietudes y experiencias escríba- 
nos a: COLEGIOS CON ATAR !, casilla 458-11 , 

4 

En esta oportunidad visitamos un nuevo co- 
legio de religiosas: Colegio María Inmaculada, ubi- 
cado en Mallinckrodt 1 7, Santiago de Chile. 

Este colegio femenino cuenta con instalacio- 
nes completas, como se ¡lustra en las fotografías: 

Se ha incorporado recientemente la nueva 
Multilínea a sus talleres de computación, de modo 
que con una sola Unidad de Disco e impresora 
pueden satisfacer por tiempo compartido, las ne- 
cesidades de impresión de 8 computadores ATARI . 

Las actividades relacionadas son: 

— Actividades de Curriculum Escolar: 

El aprendizaje del LOGO forma parte de la 
materia de asignaturas para las aluminas de 5o.,. 6q., 
7o, v 8o. grado básico. 

Las fotos y algunas pantallas muestran la rea- 
lización de esta actividad, 



Escenas durante una jornada 
de trabajo en el Taller de Computación 
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CRONICA: continuación 



ify 


Para apoyar esta actividad MUNDOATARI 
proporcionará a las mejores alunaras de cada curso 
del primer trimestre un premio y las publicaremos 
en la columna dei LOGO. 

— Talleres: 

Por ¡as tardes y en forma voluntaria las alumi- 
nas se inscriben en diferentes actividades, tales 
como: 

a) Lenguaje BASIC en diferentes niveles. 

b) Lenguaje LOGO. 

c) Utilitarios. 

Felicitamos la labor de la dirección y profeso- 
rado del colegio por el espíritu e iniciativas de ta- 
reas educacionales que se encuentran desarrollando. 

Especial mención es la dedicación de su profe- 
sora María Moreira Ramírez, que destacamos co- 
mo la Educadora ATARI del mes. 

Escríbanos para visitar y conocer las activida- 
des de su colegio. 

Por razones de tiempo y distancia los colegios 
de provincia o de otros países deberán describir en 
un corto texto sus actividades y fotos de las mis- 
mas para publicarlas en próximos artículos. • 
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Iniciamos una nueva columna de reconocimiento 
y estímulo para los esforzados pioneros de esta 
nueva metodología. 



Su lema: 


Humanizar !a computación y orientar a sus 
aiumnas mediante ei interés en la computación. 

Con esta frase definimos a María Moreira 
Ramírez , la educadora del mes para la revista 
MUNDOATARI. La editorial compartió con 
Marujita este sentimiento fraterno de sus aiumnas 
en compañía de los computadores ATARI. 

A continuación algunas de sus opiniones res- 
pecto a la educación ATARI: 

¿Cómo se introdujo en la computación ? 

— La computación educativa necesita de un pro- 
ceso de humanización, y éste fue uno de los moti- 
vos para ingresar en este nuevo mundo. 

¿Cuáles son los momentos felices que le pro- 
porciona la computación educativa? 

— La alegría de mis aiumnas, cuando en medio 
del silencio de la -clase se escucha: "Marujita, me 
saiio 

Ahora comprenderán mi alegría y sentimien- 
tos hacia la computación educativa, si esta situa- 
ción se repite todos los días. 

¿Cómo debería organizarse la computación 
educativa en los colegios ? 

— Mediante varias actividades-específicas: 

1. Incentivar a los profesores de asignatura, para 
que aprovechen las ventajas de la computación. 

2. Nuevas ideas para aumentar las posibilidades 
de uso del computador, como por ejemplo la 
Multired, etc. 

3. Incentivar el uso de utilitarios, tales como Pla- 
nilla Electrónica, Procesador de Texto, etc. 

¿Qué ganan los alumnos al participar en la 
computación educativa ? 

— Principalmente ganan en lo siguiente: 

1. Les enseña a pensar, como por ejemplo el len- 
guaje LOGO (ver artículo del colegio). 

2. Ser exactos. La tortuga enseña al respecto, si 
se equivoca la alumna. No acepta errores. 

3. La creación, aprenden a hacer cosas nuevas. 

Al respecto lo comprobamos con una alumna 
que se encontraba diseñando una estrella con el 
lenguaje LOGO (ver fotografías ilustrativas). 

MUNDOATARI premia a esta distinguida 
amiga y educadora con una beca para el aprendi- 
zaje, de I ngiés en un instituto especializado. 

Hasta el próximo mes. • 
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PROGRAMAS 



Programas en diskette para 
aprovechar al máximo las 
capacidades de la Red de 
MUNDOATARI en los ta- 
lleres computacionaies. 






■ÍK-vVV 


Sistema 

Métrico 

Decimal 



OBJETIVO: 

Los alumnos deben reconocer 
tas magnitudes y la ejercítación 
aplicada a reducciones y pro- 
blemas. 

Recomendable para alumnos 
de enseñanza básica a partir de 
5o. año. Como los ejercicios 
planteados se pueden nivelar con 
facilidad, puede ser utilizado por 
alumnos de enseñanza media. 


CONTENIDO: 

Se inicia con el concepto de 
magnitud y algunos ejemplos a- 
claratorios antes del menú prin- 
cipal. Desde aquí es posible ele- 
gir alguna de las diferentes mag- 
nitudes del S.M.D. 

Una vez efectuada la elección 
se puede ver un gráfico de la uni- 
dad en cuestión, los múltiplos 
y submúltiplos. 


Las reducciones con ayuda se 
realizan utilizando un cuadro 
que permite encontrar los resul- 
tados con facilidad. Esta opción 
es especialmente útil para quien 
se inicia en la tarea de reduc- 
ciones, 

Las reducciones sin ayuda son 
aptas para los conocedores del 
tema, lográndose una ejercita- 
ción más compleja y adecuada. 

Al finalizar cada serie se pro- 
duce un informe por pantalla de 
la eficacia en la resolución. 

USO FAMILIAR: 

Este programa puede ser em- 
pleado en el hogar con niños ma- 
yores de 9 anos. Se recomienda 
a los padres seguir las mismas 
indicaciones dadas a los docentes. 

B- i, “ ” 
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Transformación de la energía 



«iptr^v in ¡ ¡i'i 


OBJETIVO: 

Lograr que los alumnos inter- 
preten las distintas formas en 
que la energía se manifiesta, se 
transforma y se conserva. 

Ha sido desarrollado de acuer- 
do a los contenidos del programa 
oficial de cursos superiores del 
ciclo básico. 


CONTENIDO: 

Luego de enunciar el concep- 
to de energía en forma amplia, 
el computador simula un amane- 
cer en una represa hidroeléctri- 
ca, la formación de las nubes, la 
lluvia posterior y la generación 
de electricidad mediante una 
turbina. También se consideran 


algunos de sus múltiples usos. 

En todo este proceso se indi- 
can los distintos cambios ener- 
géticos, desde la energía radiante 
emitida por el sol, hasta la pro- 
ducida por los artefactos domés- 
ticos. 

EJERCITAD ION: 

Se compone de 3 tipos de di- 
ferentes ejercicios: 

— completar oraciones. 

— reconocer en gráficos formas 
energéticas. 

— completar con gráficos for- 
mas energéticas. 

Al finalizar el computador 
provee un resumen evaluativo de 
!a tarea del alumno. 

i 

USO FAMILIAR: 

Puede ser utilizado en casa 
por niños entre 10 y 13 años. 
Puede motivarlos a producir una 
investigación individual y la pos- 
terior profundización de lo a- 
prendido. 


Simulador de trabajo y 


energía 






tXECl 


PARA COK1 I«U ftR 
MENU PRINCIPAL 



OBJETIVO: 

Observar un caso donde la 
energía se transforma en trabajo 
mecánico y a partir de allí hacer 
investigaciones repitiendo la si- 
mulación, variando las condicio- 
nes iniciales. 

La simulación aborda un te- 
ma de Física y está preparado 
para alumnos de enseñanza me- 
dia. 


CONTENIDO: 

La simulación consiste en un 
automóvil de masa M y veloci- 
dad V que avanza en línea rec- 
ta y al llegar al pie de una coli- 
na de cierto ángulo de inclina- 
ción apaga el motor y sube, 
De acuerdo a los valores propor- 
cionados el programa mostrará 
si el móvil sube o no la colina. 

Una vez terminada la simula- 


ción el alumno puede optar por 
realizar otra o por .pasar a la 
ejercitación, donde se le pregun- 
tará por los valores de la energía 
cinética del móvil y por el tra- 
bajo requerido para subir la co- 
lina en la última simulación. 

En caso de que el móvil no 
pueda subir, también se le pre- 
guntará por la longitud de la 
pendiente. 

El programa es propicio para 
la investigación, pues propone 
varias interrogantes. Una de ellas 
es calcular previamente la velo- 
cidad que requiere ei móvil para 
que logre subir la colina, de 
acuerdo a datos previamente 
determinados. 

USO FAMILIAR: 

El manejo del programa es 
muy sencillo, sólo se debe seguir 
las indicaciones del mismo. Es 
muy útil para que el estudiante 
secundario investigue este tema 
en su casa. De igual manera po- 
drá realizar cálculos que el com- 
putador puede verificar. 


MAYO 1988 


31 










PROGRAMAS: continuación 



Cambios de estado 


OBJETIVO: 

Este programa educativo se 
basa en una simulación calori- 
métrica para recrear con el com- 
putador fenómenos que se rea- 
lizan habitualmente en el labo- 
ratorio escolar en el desarrollo 
de materias Física-Química, Fí- 

i ,1 1 \ 

sica y Química. 

Está pensado como comple- 
mento de las clases prácticas del 
ciclo básico, enseñanza media 
y en aquellas materias donde se 
desarrolla el tema de cambios 
de estado de la materia. 

DESARROLLO: 

A continuación de la presen- 
tación se realiza el ingreso de 
datos . 

En la primera pantalla se el i - 
je la sustancia con la cual se ex- 
perimentará, apareciendo las 
constantes físicas correspondien- 
tes. A continuación se incorpo- 
rarán las condiciones iniciales de 
temperatura, masa y las calorías 
por segundo, que son absorbidas 
por la sustancia en el proceso. 
Esta opción se realiza a partir 
de diferentes tipos de mecheros 
a disposición de los alumnos. 

Luego de la evolución, que se 
muestra gráficamente, se pasa a 
la pantalla de los relojes indica- 
tivos de las variables de! fenóme- 
no. En la parte izquierda de la 
pantalla se indican la masa, la 
temperatura inicial, la sustancia 
y el estado de la misma en las 
condiciones elegidas. En la parte 


derecha, el primero de los relo- 
jes indica el tiempo empleado en 


OBJETIVO: 

Comprensión del concepto de 
triángulo y sus elementos. . 

Fia sido diseñado para alum- 
nos de 6o y 7o. año básicos y 
primer año de enseñanza medía, 
con conocimientos básicos de la 
teoría de conjuntos. 

CONTENIDO: 

El menú principal ofrece pa- 
sar a la explicación o a la ejeret- 
tac-ión. 

La primera desarrolla la defi- 
nición de triángulo a partir de la 


rías que son absorbidas por la 
sustancia. 

ACTIVIDADES: 

La gran utilidad de este pro- 
grama es la posibilidad del uso 
dinámico del método científico, 
en cuanto a la modificación de 
variables y a la formulación de 
hipótesis y su posterior corrobo- 
ración. 

Entre otras consecuencias, los 
alumnos podrán observar la cons- 
tancia de la temperatura durante 
los cambios de estado y calcular 
los calores específicos, así como 
los latentes de cada una de las 
sustancias propuestas. Podrán 
utilizar sus conocimientos de la 
teoría de! error para establecer 
aquellos cometidos al desarrollar 
experimentalmente las experien- 
cias propuestas en esta situación. 


intersección de semiplanos. Lue- 
go se describen ios elementos 
fundamentales (vértices, lados, 
puntos interiores y ángulos inter- 
nos). A continuación se realiza 
la clasificación según los valores 
de sus lados y ángulos internos. 

USO FAMILIAR: 

Este programa puede utilizar- 
se en el hogar como complemen- 
to de los temas estudiados en 
clase, con el objeto de fijar los 
contenidos que se desarrollan. 


la experiencia, el siguiente la 
temperatura y el tercero las calo- 


Triángulos oblicuángulos 
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Primer Resultado 
Concurso 


"REGIONES CON LAPIZ DE LUZ" 

En esta ocasión han resultado seleccionados 
los aportes de dos lectores de MU N DO ATAR I. 
Ellos son don Juan Bekios Caifa, de Ovalle f y dpn 
Rodrigo Ortiz Cáceres, deTocopilla. 

Las pantallas correspondientes a estos aportes 
se presentan a continuación: 



Fig. í: ¡V Región 
preparada por Juan Bekios Caifa 



Fig. 2: i / Región 


preparada por Rodrigo Ortiz Cáceres 

/ 

Para ambos lectores se les asigna un premio de 
$ 7.000 en software del Catálogo ATAR i, a elec- 
ción, Agradeceremos a nuestros amigos lectores 
hacernos llegar el pedido para su despacho. 

¡Felicitaciones por sus excelentes aportes! 


Agenda 

magnética 

\ 

* 



Este programa de aplicación práctica continúa 
con nuestra definición de buscar y en tregar progra- 
mas a nuestros miles de lectores, que proporcio- 
nen herramientas útiles y vigentes. 

Este programa para la unidad de disco permite 
llevar en una agenda magnética (diskette) la infor- 
mación de los compromisos o actividades perso- 
nales. 

El programa usa una Lista de Despliegue mo- 
dificada y maneja cada mes como un archivo úni- 
co en un string. 

Otro recurso que presenta es que proporciona 
el mes calendario en forma completa, de acuerdo 
al año, y con los días de la semana correspon- 
dientes. 


La pantalla presenta esta descripción: 



Presenta un menú inicial de selección como 
se ilustra en ¡a foto: 
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APLICA C IONES: con tin uación 



**mtz€mm*-* 



’Ufl/O Hf % 

SjttTXCtlO MIS 
Vfc Hgs 
iÓilC JAL 12* 

"Ofifc* HfM*I SKtl t i 



6 REH CALENDARIO HAYO 1908 
8 PGKE 106, PEEN (740) .‘GRAPHICS 0 
10 DIN DAY$(21),K$(40},DY$(24) f A$Cl),F 
ILE$ (15) , LIME (25) , PP$ (46) , HOLDS (257) , f 
N$ (14) , SCRS (4500) , J J$ (25) , LL$ (40) 

12 PRINT CHRS (125) j “IHICIALIZANDO . . “ 

15 SCREEN=PEEK (88) +256RPEEK (89) «40 : FDR 
J=1 TO 23 ! LINE ( J) =5CREEN ¡ SCREEN^SCREE 
NMO.'NEKT J:G05UB 3100 
20 G05U8 1000 
99 REH MENU PRINCIPAL 


100 TRAP 100: GRAPHICS OiPOKE 559,62;P0 
KE 53277 , 3 : SETCOLOR 2,0,0:G0SUB 30008: 
POKE 82,0:INC=0 


110 PRINT : PRINT : PRINT 

PRINT ¡PP$=CHR$(I8):PP$(40) 
2)=PP$iPRlNT PP$ 


W* * 
PP$¡PPSí 


128 PRINT « SELECCIONE (OIGITE LETR 


A )”: PRINT PP$ 

130 PRINT I PRINT 11 HUEVO MES 
: PRINT 11 ANTIGUO MES "¡PRINT " 


gALVA 
148 PRINT 


MES" ¡PRINT " ONICIALIZA" 

11 gORRA HES (DISKETE) *' ¡ PO 


KE 764, 255 ¡CLOSE NÜOPEN »1 ( 4,0, ,, K:"¡G 
ET NI, J;A$~CHR$(J) 

150 IF A$= I, N M THEN 2080: REH NUEVA PANT 


ALLA 

160 IF A$="A H THEN 2200: REH EDITA ANTI 
GUO HES 

178 IF AS= ,f 5" THEN 2480: REH SALVA DATO 
S HES 

188 IF A$= M r' THEN SCR$(1)=CHR$(0) ¡SCR 
$ (4508) =CHR$ (0) : 5CR$ (2) =5CR$ ¡ REH INICI 
ALIZA STRING DATOS 

198 IF A$=* , 0" THEN 2800: REH SORRA ARCH 

IVO DEL DISKETE 

195 PRINT CHRS (125) : GOTO 110 

599 REH RUTINA EDITAR PANTALLA 

600 TRAP 100 ¡GLOSE NÜOPEN ttl 1 4,0 i "K; 11 
íPOKE 82, O ¡POKE 752,8;P0SITI0N 11,1:PR 
INT "■M*"; ¡POKE 764,255 


610 IF PEEK(764)=255 THEN GOTO 670: REH 
NO PRESIONA TECLA 
615 GET ftljK 

626 IF K=125 OR K=156 OR K=157 THEN PD 

KE 764, 255 ¡GOTO 670 

638 YV=PEEK(84};XK-PEEKC85) 

635 IF XX=39 THEN K=31 

646 IF (KX<I1 AND (Y Y-ll /3=INT ( ( YY“i) / 

3)) AND (K<28 OR K>31) THEfi K=31 

645 IF ÍYY=1 AND K=28) OR (YY=22 AND ( 

K=29 OR K=155)) THEN K=3i 

650 PRINT CKRS(K); ¡GOTO 610 

670 BUTTON=PEEK (53279) ¡IF BUTT0NO3 AN 

D BUTT0NO6 AND BUTT0NO5 THEN 610 

688 RETIIRN 

699 REH SALVA STRING A DISKETE 
780 CLOSE ttÜOPEN NI, 8,0, FILES ¡PUT til, 
H¡P1IT NI, INT (Y/256) ¡PUT NI, Y~í INT (Y/25 
6)) *256 

710 HI-17: L0=48:REM 4400 BYTES 

720 POKE 850, 11; POKE 856, LO ¡POKE 857, H 

I:GOTO 820 

799 REH LEE STRING DESDE DISKETE 

800 CLOSE NÜDPEN NI, 4, O, FILES: GET NI, 
H:GET N1,Y1:GET N1,Y2: Y=Y1*256*Y2 

810 POKE 850, 7 ¡POKE 856, 255 ¡POKE 857,2 
55 

820 NHI-INT (ADR (SCR$) /256) :NLO=ADR(SCR 
$)-HHI*256 

830 POKE 852, NLO; POKE 853,NHÜDQ=U5R(A 
DR ("hhh&jLVEP) , 16) : CLOSE Ni 
840 RETURN 

899 REH DIRECTORIO DISKETE 

900 CLOSE HÜOPEN NI, 4,0, "K:": PRINT CH 
R$ (125) ; "ORIVE N n J ¡GET NI, H¡FN$="D1 ¡*. 
N" ¡ FNS (2 , 2) =CHR$ (H) 

905 CLOSE NI ¡PRINT CHR$(K)¡OPEN NI, 6, 0 
,FN$ 

910 FOR H“1 TO 64,’INPUT íti,FN$:FN$=FN$ 

(3)íIF FN$ (3,12) ="FREE 5ECT0" THEN 950 

920 IF K/2=INT (X/2) THEN POSITION 15, ( 

XU)/2¡? FNS ¡GOTO 948 

930 POSITION 2,(X+2)/2¡? FNS 

.940 NEXT X 

950 RETURN 

999 REH INICIALIZA STRING 

1000 DAYS="SABDOHLUNHARHIEJUEVIE" 

1010 NS= H ENEFEBHORABRHAYJUNJULAGOSEPOC 
THOVDIC 11 

1828 DY$= >, 3128313031303131303130U f( 
1838 SCRS (1) =CHR$ (0) i SCRS (4509) =CHR$ (8 
) :SCR$(2)=SCR$ 

1040 RESTORE 1050 ¡FOR LOOPn TO 25 ¡REA 
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APLICACIONES: continuación 



P DT i J J$ (LOOP) =CHR$ ÍDT1 ¡ HEXT LOOP 
1050 OATA 104*104,151# 204, 104,133,203* 
104 , 133 , 207, 104 , 133 , 285 *160,0,177 
1060 OATA 206, 145, 203, ZOO, 192, 220, 200, 
247,96 

1070 LL$=" 


1080 RETURN 

1999 REH PATOS MES 

2000 ? "FECHA; MES* ANO t 00,198X) 
"¡IMPtíT M,Y:D=1:IF H>12 OR M<1 TREN 

2000 

2010 IF H(3 THEN H=M+12:Y=Y-1 

2020 N=2*H+INT 10 . 6*tM+ll I +Y4TNT CY/41 -I 

NT CY/1881 +INT í Y/4061 +3 

2030 N=INT CÍN/7-INTCN/7) 1*7+0. 051 :0=N 

2040 GOTO 5000 
2199 REH EDITA ANTIGUO MES 
2206 ? "DIRECTORIO ? 15 / NI": PONE 
764, 255 ¡GLOSE »1:0PEN til, 4,8,"IC :":GET 
Hl*J:A$=CttR$(Jl 

2210 IF A$="S" 0R A$="S" THEN GOSUB 90 
O 

2230 ? "CUAL MES EDITA T": GOSUB 4000: 

REM BUSCA MES DE DIRECTORIO 

2240 IF FN$= ,m THEN 100 

2250 GOSUB 800: REM LEE DATA DEL DISKET 

E 

2260 GOTO 2010 

2399 REM SALVA DATOS 

2480 FILE$="D : " : FILES C3I =HS CH*3-2, M*31 

¡ FILES C61=5TR$iYl 

2410 GOSUB 700 

2420 GOTO 100 

2799 REM BORRA UN ARCHIVO 

2800 ? "DIRECTORIO ? ÍS / NI": PONE 
764,255: GLOSE til: OREN Hi,4,B,‘*í :'‘:G£T 
H1,4:A$=CHRS(J] 

2805 IF AS="S” OR A$="5" THEN GOSUB 98 
O 

2810 ? “CHAL ARCHIVO, BORRA ?"¡? :CLOSE 
Ni:? "DIGITE NOMBRE O PULSE 11 :? "RET 
URN Y FINAL "J ¡GOSUB 406® 

2820 IF FN$="" THEN 195 

2830 XIO 33, »3, 0,8* FILES: GOTO 195 

2999 REM IMPRIME DATOS DE PANTALLA 

3000 TRAP 600:P0KE 752,i:PRINT "♦4"¡CL 
OSE NI : OPEN M1,4,8,"P:":F0R 4=1 TO 22 
3010 FOR 1=1 TO 40 : PP$ CI1 =HOLDS CPEEK CL 
INECJm-il*lI:NEXT I:? NljPPS 

3015 IF J/3=INTCJ/U THEN ? N1;LL$ 

3020 HEXT J:FOR 0=1 TO 5:? NI: HEXT 0:C 
LOSE Ni: GOTO 608 


3899 REM ARREGLO CAMBIA CARACTERES IMT 

ERNOS A CARACTERES ATASCII 

3100 FOR 11=0 TO 255;IC=II:1V=6:IF IC> 

127 THEN IV=l!lC=IC-128 

3110 IF IC<64 THEN AC=IC+32+128*IV : GOT 

O 3140 

3120 IF IC<96 THEN AC=IC“64+128*IV:G0T 
O 3140 

3130 AC=IC*128*IV 

3140 HOLDS CII+U =CHR$ (ACI ; NEXT II 

3199 REM IHICIALIZA PLAYER/HI55ILE 

3200 PHB ASE=PEEK C186I -16 ! POKE 54279, PH 
BASE ; PMBA5E=PMBASE*256 

3210 FOR H=53256 TO 53259: POKE H,3:NEX 

T HiPOKE 53260,255 

3220 POKE 88*0:P0KE 89,PEEKI106)-16:? 
CHR$ 11251 ¡GRAPHICS O ¡ SCREER=PEEK 1881 +2 
56MPEEKC891+40 

3230 FOR N=PMBASE+807 TO PHBASE+987 ST 
EP 8:F0R 4=0 TO 1024 STEP 256:P0KE H+J 
,255: NEXT 4¡NEXT H 

3240 FOR M=764 TO 707 ¡POKE H, O ¡NEXT H: 
POKE 559, 62 ¡POKE 53277, 3: POKE 623,1 
3250 RESTDRE 3260 ¡FOR 1=53248 TO 53255 
: READ 4: POKE I,4:NEXT I: RETURN 
3260 DATA 48,88,112*144,176,184,192,20 
O 

3999 REM MANIPULA ARCHIVOS 

4000 IHPUT FNSÜF FN$="“ THEN RETURN 
4010 FOR 4=1 TO LENCFNSl.’IF FNSt4,4J=" 
:** THEN POP ¡FILES=FNS: RETURN 

4028 NEXT J: FILE$="D ¡" ¡FILES «1 =FNS¡ RE 


TURN 

4999 REM EDITA SEMANAS EN LA PANTALLA 

Y SALVA DATOS A STRING 

5060 POKE 752,1:? CHR$ 11251 ¡SETCOLOR 2 

*7,4 

5815 IF M>12 THEN M=M-12:Y=YU 
5388 DY=VALCDY$ CNK2-1, H*211 
5305 IF M=2 THEN IF CY/4=INTIY/41 AND 
Y/IOOOINT (Y/1001 1 OR Y/400=INTCY/400J 
THEN DY=DV+i 
5310 GOSUB 7008 

5315 FOR L06P=i TO 7¡P0SITI0N 8,L80P*3 
-2 

5316 IF L00P*INC*7>DY THEN POSITION O* 
L80P*3-2 : ? "AGENDtfH"; ¡POP ¡GOTO 5340 
5320 ? DAY$ «*3+1,0*3+31;" ";MSCM*3-2, 
H*3l;" ";l®0P+inc*7; 

5325 Q=Q+1 


5327 IF 0=7 THEN Q=0 

5330 NEXT LOOP 

5340 POSITION 0,23¡? " 


BBSSSIGUE 
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APL IC ACION E S: continuación 


LECT = PR.lHT»PTION:HEHU 


535» COSI» 608 ¡ REH RUTINA EDITA PAN TAL 
LA 

5378 If BU1*TÜN=6 THEN GOSUB T388:INC=I 

NCUÜF INC=5 THEN INC=8:Q=N 

5389 IF BUTTOH-6 THEN 5888 

5418 IF BUTTQN=3 THEN GOSUB 5888 ¡GOTO 

188 

5428 GOSUB 3888 íGOTO 5358 

599? REH INGRESA DATOS DE PANTALLA A 

5TRING 

6888 PONE 752,1:? : FOR L00P=8 TO 3 

: INDEXl=88B*INCtLD0P*228+l: INDEX 2=5CRE 
ENH60P*228 

6818 D0=U5R (ADR ( J J$1 , ADR (5CR$ (IHDEX1) 1 
, INDEX23 


6828 NEXT LOOP 

6838 POKE 752,8 ¡RETURN 

6999 REH EDITA 5TRING A PANTALLA N 

7808 FOR L0DP=8 TO 3 : INDEX1=888*XNC+L0 

ÜP#220U : INDEX2=SCREEN¿LQ0P*220 

7818 DQ=USR(ADR ( JJ$) , INDEX2, ADR CSCR$ O 

NDEX1M1 

7828 NEXT LOOP 

7838 RETURN 

29999 REH DES ACTIVA TECLA BREAN 
38888 REH POKE 16, 112: POKE 53774,112 
38816 RETURN 


Este programa de aplicaciones de este mes 
demuestra las potencialidades latentes de su com- 
putador ATARI . 


CONTRIBUCIONES 1988 


Este mes se ha seleccionado la contribución envia- 
da por don Jorge Valenzuela S. de Santiago , quien 
se hace acreedor a un premio de $ 5,000 en soft- 
ware del Catálogo MUNDOATAR!, que puede re- 
tirar personalmente de nuestras oficinas o solicitar 
por medio de la Orden de Pedido adjunta. 


El programa siguiente soluciona esta difi- 
cultad, siendo posible su perfeccionamiento. 


RENUMERADOR DE LINEAS 

En ocasiones existe el problema de tener que 
renumerar las rutinas, para incluirlas en otros pro- 
gramas, o porque los intervalos no son los más 
adecuados. 

Si bien existen programas para renumerar, la 
solución es sólo parcial, pues ellos renumeran las 
líneas y no las instrucciones relacionadas con 
dichas líneas. Por ejemplo la línea: 

101 GOTO 1050 

quedaría tai cual si el número de línea fuera 500 
y al número 1050 le correspondiera el 3000, 

La versión correcta en este caso debiera ser: 

500 GOTO 3000 

En varios de estos programas se indica que 
hay que revisarlos personalmente y arreglarlos ai 
mano. 



18 REH 

28 REH REHUHERADOR POR 
38 REH JORGE VALENZUELA SEPULVEDA 
40 REH LA FUENTE 153» LAS CONDES 
58 REH SANTIAGO CHILE 
60 REH — — 

78 DIH A$ (1281,8$ (128), C$ (1281, N$ (5), F 
$(15):LI=4995:P0KE 730,1 
80 ? “*¿ ¿INGRESE ARCHIVO <D_;XXKXXXXX. 
YW}"; CHR$ (155) J " (DEBE ESTAR EN FORHAT 
8 LI5TÍ M í INPUT F$ 

98 ? “¿INGRESE NUMERO DE INICIO, INCRE 
MENTO": INPUT EH, IN 

180 * »¿¿ ¿ « Mi. ' Hiftr i iMKM ¡WailiW 

:F0R T=i TO 488: NEXT T 

118 GLOSE NliOPEN ttl ,4,8,5$: POKE 559,8 

128 FOR T=EM TO 32767 5TEP IN 

138 TRAP 198: INPUT ttl,A$ 

148 FOR 1=1 TO 6:IF A5C(A$(I,I))>57 OR 
ASC(A$(£,I))<48 THEN POP :? "6" ¡GOTO 
160 

158 NEXT I 

160 PO5ITX0N 2,3:? LI¿5¡“ D. ";A$(1,I- 
1>;",";T:LI=LI+S 
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APLICACIONES: continuación 



178 ? :? "CONr'zPOSITIÜN 2,0íP0KE #42, 
13 : STOP 

180 ? "*“:POKE 842,12:NEXT T 

190 LI=5000:POKE 559,34 

200 CLOSE (ti ! OPE# 111,4,0,F$:CLO5E 1*2:0 

PEN 112,8,8, "01: RENUM" 

210 ? í(2 ; ”8 , RENUMERA90" ¡ CLOSE 1(2: OPE 
N #2,9,0, “01 :RENU1T 

220 TRAP 230:INPUT #1,A$:B$=A$:C$=A$:G 
OTO 240 

230 ? "GH3ÍE ,, :ER0 

240 FOR T=1 TO LEN(A$) ;GOSUB 260:NEXT 
T 

250 COTO 520 

260 TRAP 250 :IF A$CT,T)- M 6 M THE# 310 
270 IF A$CT,T)="0" THER 330 
280 IF A$CT 1 T)= ,, R" THE N 430 
290 IF ASCr,»::"!" THEN 458 
308 RETURN 

310 IF A$CT,T+4)<>"G0T0 " ANO A$CT,T+2 
01 <>“505118 " THEN RETURN 
320 GOTO 626 

330 IF A$tT**i,T+21 <>“ DN " THEN RETURN 
340 O=l:J=0:K2=7 

350 TRAP 420 :IF C$C0,0)= M f M THEN 370 
360 0=0+1: GOTO 350 

370 Z=0:F0R P=KZ TO 0¡IF A5C(C$(P,P11> 
57 OR ASCCC$CP,P>)<48 THEN NEKT P 
388 TRAP 420 :X=VALC€$(P, 0-11 CGOSUB 58 
0:N$=5TR$(B) :8$='*" 

398 IF J=0 THEN A$=A$tl,P-l) : J=1 
400 A$CLENCA$)+1)=N$:IF HAP=1 THEN MAP 
=6: GOTO 308 

418 A$ CLEN CA$m)= ,, , ,, :ICZ=0: GOTO 368 

426 TRAP 388 : M=OAL í C$ IK2+11 1 : £0500 508 

! N$=5TR$ (8) : 8$="" : HAP=1 : GOTO 398 
436 TRAP 480 :IF A$ÍT,T+7) «"RE5T0RE " 

THEN RETURN 
440 GOTO 628 

450 TRAP 488 ¡IF A$CT,T+4) <>"THEN " ANO 
A$CT,T+4) O "TRAP " THEN RETURN 
460 IF ASC(A$m5,T+5»>57 OR ASCCA$CT 
+5,1+5)1(48 THEN RETURN 
470 GOTO 628 
480 RETURN 

490 FOR I=T TO LENCAS) 

500 IF A5CCA$CI,I))>57 OR ASCCA$CI,I» 
<48 THEN NEKT I 

516 JK=I:KJ=VALCA$CX, LENCAS») :N$=5TR$ 
(K J) i K J= JK+LEN CNS) -1 : RETURN 
526 8S=AS:X=0AUA$(1,6» :G05UB 580EGO5 
UB 560 


530 A$=5TR$ CBl i AS CLEN CAS) +1) =0S CT) 

540 POKE 766,1:? AS: PONE 766,1:? 112, AS 
:GOTO 220 

568 FOR T=1 TO 5:IF A5CCA$CT,T)}>57 OR 
A5CCA$CT,T»<48 THEN RETURN 

570 NEKT T: RETURN 
580 RE5T0RE 5900 

590 TRAP 610:READ A,B:IF A<>X THEN 596 
600 RETURN 
610 B=X: RETURN 

620 G05UB 490:X=VAUAS(JK,KJ)) :G05UB 5 
80 

638 TRAP 640¡N$=5TRSCB):B$=A$CKJ+1):GO 
TO 650 
640 B$=“ " 

650 A$=A$C1, JK-1) 

668 AS CLEN CAS) H) =N$ 

678 A$ CLEN CAS) +1)=B$ 

680 B$=" "¡GOTO 300 


El programa trabaja con una diskettera, ya 
sea externa o RAMDiSK y también con 2 djsket- 
teras. 

Es necesario que el programa o la rutina a re- 
numerar estén grabados en formato : 

LIST "D : XXXXXXXX.YY Y" 

en un disco con suficiente espacio libre como 
para que quepa este último programa y algo más. 

Al ser ejecutado el renumerador pide al usua- 
rio que ingrese el nombre de la rutina en cuestión, 
de la siguiente forma: 

D : XXXXXXXX. YYY 

luego el número de inicio y el incremento entre 
líneas. 

Enseguida se genera un mapa de lineas, me- 
diante e! ingreso de líneas de datos por medio de 
lectura forzada. Luego va poniendo en pantalla 
las líneas ya renumeradas, al mismo tiempo que 
en el disco de trabajo, bajo el nombre RENUM, 
se le agrega la 1 ínea: 

0 REM Renumerado, 

Una vez terminado el proceso aparece en 
pantalla el mensaje: hecho en video inverso. 

Si se desea ver el mapa de líneas se debe listar 
las líneas a partir de la 5000. El primer número 
indica la línea primitiva y el segundo la nueva 
! ínea. 

Para obtener el programa renumerado se 
limpia la memoria con NEW y se dígita: 

E!MTER"D: RENUM" 

y una vez cargado se podrá comprobar la nueva 
numeración. • 
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PROGRAMAS 


Juegos 



ZORRO 


Ayude a nuestro gran amigo de 
aventuras a rescatar a la dama que 
tienen capturada los gendarmes. 

Busque la en todos lados, pero 
recuerde que debe recolectar ciertos 
objetos para pasar a otras etapas del 
juego. 



STAR RAIDER li 


Igual a la versión I, pero con ma- 
yor realidad en los movimientos. 

Usted debe atacar rápido, o su 
galaxia será destruida por la flota in- 
vasora. 



\ 


TRAILBLAZER 

Un simpático juego, en el cual la 
agilidad es e! factor fundamental para 
todo jugador. 

Su misión es movilizarse por toda 
la pista en el menor tiempo posible, 
sin caer en los agujeros que se en- 
cuentran en su camino. 

Si usted es rápido su tiempo que- 
dará entre los mejores. 



COHPtlCi t i » 

A r ***** 

prtsrftta rfifftre di 

717 tlóiuts > ... 

WHOHPER 

5TOMPER 

1 r; Í I «4 ** x r* *r m 

HA ■ — --*■ i ** ^ 

LviftC IÍI X LJ OR 

19*7 


WHOMPER STROMPER 

Imagínese un pie que se encuentra 
en una ladera. 

Usted tiene la misión de matar a 
todas las hormigas que se quieren 
acercar a comer su comida dentro de 
la cesta. 

Trate de eliminarlas a todas, ya 
que en caso contrario se quedará sin 
comida. 


con STAC 



ZAXXON 

Un simpático juego de ataque tri- 
dimensional, en el cual usted tiene 
que destruir los objetivos que se en- 
cuentren a su paso y finalmente at 
robot que controla ¡a base. 

Cuidado con las paredes, barreras 
láser y los proyectiles inesperados. 



SIPERMAN 


Ayuda a nuestro superbéroe a 
combatir el mal. 

Desafía las fuerzas malignas de ios 
archienemígos de Superman, entre los 
laberintos donde ellos se esconden. 
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PROGRAMAS 


Para satisfacer a nuestros lectores continuamos ampliando la lista 
de juegos en casete grabados con ST AC. 

Los últimos programas de esta lista son utilitarios que se incorporan 
a los beneficios de este revolucionario sistema. 







«Sí??*#*! 


XEVIOUS 

Eí ataque de una nave a objetivos 
terrestres queda disminuido ai lado 
de este fantástico juego, 

Ataque objetivos que se encuen- 
tran protegidos por naves enemigas, 
que lo atacarán. 

Su nave dispara y lanza bombas 
que deben caer exactamente en los 
objetivos terrestres. 


MISTER DO 

Ayude a nuestro amiguito a re- 
colectar fruta antes de que sean devo- 
radas por los bichos que habitan en 
los prados. 

Usted fabrica sus propios cami- 
nos, por donde lo perseguirán, pero 
donde usted los puede eliminar. 

Averigüe la forma como se hace. 


TAPPER 

Sea el cantinero de un bar en el 
cual sus clientes se desesperan por 
obtener un refrigerio. 

Es un entretenido juego, en el 
que usted debe repartir cervezas y 
recoger los vasos y las propinas. 

Si no es suficientemente rápido 
verá muchos vidrios en el suelo. 



ELECTRICIAN 


Usted es contratado por una empresa 
para trabajar en varios edificios y ca- 
sas para conectar los diferentes pisos 
al tendido eléctrico. 

Cuidado con los diferentes anima- 
les que encontrará en el camino, ya 
que ellos pueden arruinar los circui- 
tos o a su vez matarlo a usted. 



RIVER RAID 


Usted es piloto de un avión de 
combate. 

Su misión es destruir todos los 
objetivos enemigos que se encuen- 
tran a lo largo del río. 

Recuerde que debe abastecerse 
de combustible para continuar su 
misión. 



PITSTOP II 


Disfrute de una de las mejores si- 
mulaciones de carrera de fórmula I, 
eligiendo pistas, gastando y recam- 
biando neumáticos, cargando com- 
bustible, etc, y todo en et menor 
tiempo posible. 

Usted es ei piloto. Su triunfo es 
de toda su escu dería. 
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PROGRAMAS: continuación 


- 






con STAC 


(continuación) 









NINJA 

En las artes marciales los mejores 
son los ninjas. 

Sea uno de ellos y combata a 
otros adversarios que lo atacarán 
con estrellas o con golpes. 

Si es más ágil que ellos logrará eí 

triunfo. 


NEW YORK CITY 

Usted es turista en Nueva York, 

Pero usted debe seguir ciertas 
órdenes que se le darán en panta- 
lla, respecto al recorrido por la 
dudad. 

Entreténgase con este fantásti- 
co juego que lo hará pasar buenos 
momentos. 


MICROFILER 

Igual a una Base de Datos para dis- 
kette, pero para casete. 

Usted puede almacenar todo tipo 
de información en este fantástico 
programa que íe puede servir de gran 
ayuda en sus requerimientos perso- 
nales . 



ATAR! MUSIC 


i DIT MUSIC 
mRRANGE MUSIC 
: AVE 

I ETRIEVE 
i OS 

l ISTEN 

COPYRIGHT ATAR! 19 


SINTETIZADOR DE VOZ 

Viva la experiencia de escuchar 
a su computador Sos textos que 
usted escriba. 

Este programa transforma su com- 
putador en una máquina parlanchína 
que puede pronunciar una infinidad 
de palabras. 


Atrévase a ser un gran concertista 
con este simpático y sencillo progra- 
ma musical, 

Eí único requisito es tener buen 
oído y ganas de tocar música. 


MUSICA 

Otro tipo de programa musical, 
dedicado a personas que entiendan 
más de este tipo de arte 

Este es un programa en ef cual 
e! sintetizador funciona a su máxi- 
ma capacidad, lo que permite cono- 
cer todo el sistema de sonido de su 
computador ATARI. 


MUSIC COMPOSER 
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INFORMATE EN LA DIRECCION QUE TE CORRESPONDE 


ARGENTINA 


CHILE 


MUNDOATARI 



Avda. 11 Septiembre 2305 
Local 18 Fono: 2515949 
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